Word文档中如何批量插入带文件名的图片_编写宏代码自动读取文件夹并插入图片

目前golang学习网上已经有很多关于文章的文章了，自己在初次阅读这些文章中，也见识到了很多学习思路；那么本文《Word文档中如何批量插入带文件名的图片_编写宏代码自动读取文件夹并插入图片》，也希望能帮助到大家，如果阅读完后真的对你学习文章有帮助，欢迎动动手指，评论留言并分享~

可通过VBA宏在Word中批量插入指定文件夹图片并自动添加加粗绿色文件名题注；需启用开发工具、粘贴代码、支持多格式扩展、调整宏安全设置后运行，再手动优化图片布局与题注对齐。

如果您需要在Word文档中批量插入来自指定文件夹的图片，并为每张图片自动添加对应文件名作为题注，则可以通过编写VBA宏实现自动化处理。以下是完成该任务的具体步骤：

一、启用开发工具并创建新宏

Word默认不显示“开发工具”选项卡，需先启用该功能以便编辑和运行宏代码。启用后，可新建一个标准模块用于编写插入图片的VBA逻辑。

1、点击“文件”→“选项”→“自定义功能区”→勾选“开发工具”→点击“确定”。

2、切换到“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。

3、在VBA编辑器中，右键“Normal”或当前模板→选择“插入”→“模块”，新建一个空白模块。

二、粘贴并修改图片插入宏代码

该宏将遍历指定路径下的所有支持格式图片（如.jpg、.png、.bmp），逐个插入文档，并在每张图片下方插入加粗的绿色文件名作为题注。

1、在新建模块中粘贴以下完整VBA代码：

Sub InsertImagesWithFilename()
Dim fd As FileDialog
Dim folderPath As String
Dim fileName As String
Dim doc As Document
Dim ilsh As InlineShape
Dim para As Paragraph
Set doc = ActiveDocument
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show -1 Then Exit Sub
folderPath = fd.SelectedItems(1) & "\"
fileName = Dir(folderPath & "*.jpg")
Do While fileName ""
  Set ilsh = doc.InlineShapes.AddPicture(FileName:=folderPath & fileName, LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
  Set para = doc.Paragraphs.Add(Range:=Selection.Range)
  para.Range.Text = "" & fileName & ""
  para.Range.Font.Bold = True
  para.Range.Collapse Direction:=wdCollapseEnd
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  fileName = Dir
Loop
fileName = Dir(folderPath & "*.png")
Do While fileName ""
  Set ilsh = doc.InlineShapes.AddPicture(FileName:=folderPath & fileName, LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
  Set para = doc.Paragraphs.Add(Range:=Selection.Range)
  para.Range.Text = "" & fileName & ""
  para.Range.Font.Bold = True
  para.Range.Collapse Direction:=wdCollapseEnd
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  fileName = Dir
Loop
fileName = Dir(folderPath & "*.bmp")
Do While fileName ""
  Set ilsh = doc.InlineShapes.AddPicture(FileName:=folderPath & fileName, LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
  Set para = doc.Paragraphs.Add(Range:=Selection.Range)
  para.Range.Text = "" & fileName & ""
  para.Range.Font.Bold = True
  para.Range.Collapse Direction:=wdCollapseEnd
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  fileName = Dir
Loop
MsgBox "图片插入完成！共插入带文件名标注的图片若干张。"
End Sub

三、调整宏以支持更多图片格式

原始代码仅覆盖.jpg、.png、.bmp三种格式；若需兼容.gif、.tiff等，可在同一模块中追加对应扩展名的Dir循环段落，每次循环前重置fileName变量并指定新通配符。

1、在上述代码末尾“MsgBox”之前插入新循环段落：

fileName = Dir(folderPath & "*.gif")
Do While fileName ""
  Set ilsh = doc.InlineShapes.AddPicture(FileName:=folderPath & fileName, LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
  Set para = doc.Paragraphs.Add(Range:=Selection.Range)
  para.Range.Text = "" & fileName & ""
  para.Range.Font.Bold = True
  para.Range.Collapse Direction:=wdCollapseEnd
  Selection.EndKey Unit:=wdStory
  Selection.TypeParagraph
  fileName = Dir
Loop

四、设置宏安全性并运行

Word默认禁用宏以防止恶意代码执行，需临时将宏安全级别设为“启用所有宏”或“通知我”才能运行自定义脚本。操作后务必恢复至推荐级别。

1、点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”。

2、选择“启用所有宏（不推荐；可能会运行有潜在危险的代码）”或“通知我有关宏的启用。”

3、返回Word主界面，在“开发工具”选项卡中点击“宏”，选择“InsertImagesWithFilename”，点击“运行”。

4、在弹出的文件夹选择窗口中，定位到存放图片的目标文件夹，点击“确定”。

五、手动修正图片排列与题注格式

宏插入的图片为InlineShape类型，会随文字流换行；若需统一居中、固定尺寸或改为浮动式布局，需在插入后单独选中图片进行样式调整。

1、按住Ctrl键依次单击各张图片，批量选中所有已插入的InlineShape对象。

2、右键任意一张图片→“设置图片格式”→“大小”选项卡→取消勾选“锁定纵横比”，输入统一高度（如8厘米）。

3、再次右键→“环绕文字”→选择“上下型”或“四周型”，使图片脱离内联限制。

4、选中全部题注文本（即文件名部分），点击“开始”选项卡→“居中”按钮，使其与上方图片对齐。

今天带大家了解了的相关知识，希望对你有所帮助；关于文章的技术知识我们会一点点深入介绍，欢迎大家关注golang学习网公众号，一起学习编程~