如何在Word文档中插入多个带有文件名的图片？
在Word文档中，可以使用“插入”功能一次快速插入多张图片。 但是，有时在插入图片时需要插入文件路径和名称作为标题。 您如何在Word文件中处理此任务？
使用VBA代码插入多个带文件名的图片
以下VBA代码可以帮助您在插入图像时插入文件路径和名称作为标题，请按以下步骤操作：
1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 然后，单击 插页 > 模块，将以下代码复制并粘贴到打开的空白模块中：
VBA代码：使用文件名插入多张图片：
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
3。 然后按 F5 键以运行此代码，将显示“浏览”窗口，请选择包含要插入图像的文件夹，请参见屏幕截图：
4。 然后点击 OK 按钮，所选文件夹中的所有图像都已插入到Word文档中，并且文件路径和名称也已作为标题插入，请参见截图：
使用Kutools for Word插入多张带文件名的图片
如果你有 Kutools for Word，其 图片 功能，您可以快速将多张带有文件路径和名称的图片立即插入Word文档。
| Kutools for Word : 带有超过100个方便的Word加载项，可以在60天内免费试用. |
安装后 Kutools for Word，请这样做：
1. 点击 库工具 > 图片，请参见屏幕截图：
2。 在弹出 插入图片 对话框，请执行以下操作：
- （1.）点击 添加文件 or 添加文件夹 按钮选择要插入的图像；
- （2.）然后检查 插入每张图片的文件路径作为标题 对话框左下方的选项；
- （3.）然后单击 插页 按钮。
3。 插入图像后，您将看到每张图片的文件路径和名称也被插入，请参见屏幕截图：
推荐的Word生产力工具
Kutools For Word-超过100种Word高级功能，节省50％的时间
- 复杂和重复的操作可以在几秒钟内完成一次处理。
- 跨文件夹一次将多个图像插入Word文档。
- 将文件夹中的多个Word文件合并并合并为所需顺序。
- 根据标题，分节符或其他条件将当前文档拆分为单独的文档。
- 在Doc和Docx之间，Docx和PDF之间转换文件，用于常见转换和选择的工具集合等...
