可通过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、选中全部题注文本（即文件名部分），点击“开始”选项卡→“居中”按钮，使其与上方图片对齐。
