word 宏 批量插图片

在Word中，可以使用宏来批量插入图片。首先，我们需要打开一个新的文档并按下Alt+F11打开宏编辑器。接下来，我们可以编写以下宏代码：

Sub InsertImages()
Dim filePath As String
Dim pic As InlineShape

'设置图片文件路径
filePath = "C:\图片文件夹\"

'循环遍历文件夹中的所有图片文件
For Each file In Dir(filePath & "*.jpg")
'插入图片
Set pic = ActiveDocument.InlineShapes.AddPicture(filePath & file)

'调整图片大小和位置
pic.LockAspectRatio = msoTrue
pic.Width = InchesToPoints(3)
pic.Height = InchesToPoints(3)
pic.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

'插入图片后插入一个换行符
Selection.TypeParagraph

Next file

MsgBox "图片已成功插入文档！"
End Sub

在这个宏中，我们首先定义了一个字符串变量filePath来存储图片文件夹的路径，你可以根据实际情况修改该路径。然后，我们使用Dir函数来循环遍历指定文件夹中的所有.jpg图片文件。在循环中，我们使用AddPicture方法将图片插入文档，然后通过调整pic对象的属性来设置图片的大小和位置。最后，我们在每个图片下方插入一个换行符以保证图片之间的间距。最后，通过使用MsgBox函数，我们会在所有图片插入完成后弹出一个对话框来提示用户。

使用这个宏，你可以轻松地将一个文件夹中的所有图片批量插入到Word文档中。记得保存宏，并将该文件夹路径修改为你实际存储图片的路径。