word中批量插入图片

《宏命令》

Sub 批量插入图片()
'
' 在表格中批量插入指定的图片
' 图片指定位置为C:\Users\Administrator\Desktop\12\
' 插入数量待定
' 图片名称 eg 1.jpg，2.jpg

'定义两个变量
Dim n,m

m=100

'循环 重复插入图片  变量m的值表示需要插入的图片总量
For n = 1 To m  Step 1
'执行的循环体，可以根据word的宏录制功能得到以下代码
Selection.InlineShapes.AddPicture FileName:= _

'拼接字符串 加入变量n
"C:\Users\Administrator\Desktop\12\" & n & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True
Selection.TypeText Text:=" "
Selection.MoveRight Unit:=wdCell

Next
End Sub

================================================&