如何通过设置Excel行距提升工作表可读性和美观度
371
2024-02-05
如何在Word文档中插入多个带有文件名的图片？
如何在Word文档中插入多个带有文件名的图片？
在Word文档中，可以使用“插入”功能一次快速插入多张图片。 但是，有时在插入图片时需要插入文件路径和名称作为标题。 您如何在Word文件中处理此任务？
使用VBA代码插入多个带文件名的图片
使用 Kutools for 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天内免费试用.前往下载60天免费试用购买贝宝/ MyCommerce
安装后 Kutools for Word，请这样做：
1. 点击 库工具 > 图片，请参见屏幕截图：
2。 在弹出 插入图片 对话框，请执行以下操作：
（1.）点击 添加文件 or 添加文件夹 按钮选择要插入的图像； （2.）然后检查 插入每张图片的文件路径作为标题 对话框左下方的选项； （3.）然后单击 插页 按钮。3。 插入图像后，您将看到每张图片的文件路径和名称也被插入，请参见屏幕截图：
点击下载Kutools for Word并立即免费试用！
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点！深入了解下面突出显示的功能或 单击此处探索 Kutools for Word 的全部功能.
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择（PDF/TXT/DOC/XLSX） / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件 ...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字 ...
🧹 轻松清洁: 扫开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多删除工具，请前往我们的删除组
➕ 创意插入: 插页 千位分隔符 / 复选框 / 单选按钮 / 二维码 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 在我们的插入组中发现更多信息
🔍 精准选择: 精确定位特定页面 / 表 / 形状 / 标题段落 / 使用我们的选择组轻松导航
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具 ...
使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。
了解更多 免费下载 购买
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
