word插入图片的同时自动插入图片名称

最新推荐文章于 2023-12-25 10:23:22 发布

我不吃辣椒呀

最新推荐文章于 2023-12-25 10:23:22 发布

阅读量8.3k

点赞数 17

分类专栏：工具文章标签： windows vba

本文链接：https://blog.csdn.net/Aerialseed/article/details/116851162

版权

工具专栏收录该内容

1 篇文章 1 订阅

订阅专栏

文章目录

1.打开一个需要插入的word

打开需要插入图片的word

2.打开Word VBA

快捷键：Alt + F11
在这里插入图片描述

3.点击ThisDocument

在这里插入图片描述

4.粘贴代码进去，然后关闭（复制代码，别手敲！！！）

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    Dim index
    index = index + 1
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = "图" & index & "-" & xFile
                        .MoveDown wdLine
                        .MoveDown wdLine
                    index = index + 1
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub