《宏命令》
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
================================================&