Question

word如何将插入图片名自动作为图片标注？





Answer 1

我们有个文件夹，里面是图片，每个图片都 有名称；如果在word中批量插入图片,如何让现有的图片名称成为word里的图片标题呢？

首先，我们打开一个word文本（以2013版为例）

首先，打开所需要的word文件，然后点击“视图”-----“宏”---点选 “查看宏”然后打开宏对话框，自定义一个宏名，然后点创建；当然我们还可以用简单的快捷键alt+f11，进入宏编辑页面。

然后在打的对话框中选择：thisdocment  并在右侧内粘贴如下代码：（一定要复制粘贴，不要敲，如果这里复制后运行出错，代码可以去我动态里找，有朋友说报错，重新复制了就好了）

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

再点运行，会出现“浏览”对话框，找到存放图片的文件夹，点确定就可以了，回到word视图页面，就会发现，已经都 插入进来了

Answer 2

打开word文档，选中图片，然后找到引用，在引用项下找到提出按钮，然后点击新建标签，点击确认，然后返回刚才的题注，操作面板选择编号选在选择格式，点击确认，然后返回提出界面，单击确认就可以了。

Answer 3

可以在插入的图片上面点击右键，然后选择插入图片标注，紧接着输入图片名就可以了。

Answer 4

选择引用，找到题注 ，点击新建标签，选择自己适合的标签，然后点击确认就可以了。