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

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

发布时间 - 2026-01-28 00:00:00 点击率：次

可通过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 Whi

le 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