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

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



5.点击运行宏

在这里插入图片描述
快捷键:F5

6.选择要插入的图片目录

在这里插入图片描述

7.大功告成

在这里插入图片描述

评论 7
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值