如何在 Word 文档中批量插入多张带有文件名的图片？

作者晓阳修改日期2025-01-07

在 Word 文档中，您可以通过插入功能快速批量添加多张图片。但有时在插入图片时，还需要将文件路径和文件名作为标题一同插入。此功能在处理资料、报告或演示文稿时，方便引用图片来源，非常实用。

在本教程中，我们将为您详细讲解如何高效地将多张图片连同其文件路径和文件名作为标题，一并插入到 Word 文档中，助您更高效地管理图片。

使用 VBA 代码批量插入带文件名的多张图片

使用 Kutools for Word 批量插入带文件名的多张图片

使用 VBA 代码批量插入带文件名的多张图片

以下 VBA 代码可帮助您批量插入多张图片，并将其文件路径及名称作为标题。请按照以下步骤操作：

按住 Alt + F11 即可打开 Microsoft Visual Basic for Applications 窗口。

单击插入>模块，并将以下代码粘贴到打开的模块中：

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    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 = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

按下 F5 即可运行代码。在弹出的浏览窗口中，您可以选择包含图片的文件夹。

选择文件夹以插入图片

单击确定后，所选文件夹中的所有图片将自动插入到 Word 文档中，并将其文件路径和名称作为标题一同添加。

通过 Kutools for Word 批量插入带文件名的多张图片

使用 Kutools for Word，可高效将多张图片及其文件路径和名称插入到 Word 文档中。此功能节省时间，且比手动输入文件信息更准确高效。借助图片功能，您可以轻松完成此操作。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

安装 Kutools for Word 后，请按照以下步骤操作：

单击 Kutools > 多图图片。
在弹出的插入图片对话框中，执行以下操作：
- 单击添加文件或目录，选择您要插入的图片。
- 在对话框左下角勾选使用文件的完整路径作为题注插入选项。
- 单击插入按钮，即可一次性插入所有图片。
插入图片后，每张图片的文件路径和名称都会被自动添加为标题。