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

Author: Xiaoyang Last Modified: 2025-05-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运行代码。将弹出一个浏览窗口，您可以在其中选择包含图像的文件夹。

Select a folder to insert pictures from

点击确定，所选文件夹中的所有图像将被插入到Word文档中，并附带其文件路径和名称作为题注。

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

使用Kutools for Word可以高效地将多张图片及其文件路径和名称插入到Word文档中。与手动添加文件详细信息相比，此功能节省了时间并确保了准确性。通过其“图片”功能，您可以轻松完成此任务。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

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

点击 Kutools > 多张图片.
在弹出的 插入图片 对话框中，执行以下操作：
- 点击“添加文件”或“添加文件夹”以选择要插入的图片。
- 勾选对话框左下角的“插入每张图片的文件路径作为题注”选项。
- 点击插入按钮，一次性插入图片。
插入图片后，每张图片的文件路径和名称将作为题注添加。