Word怎样批量按顺序插入图片

1、首先打开Microsoft Office Word 2007，新建文档，如图。

3、然后插入了一个模块1，在代码框中复制如下代码：Sub 批量插入图片() '2020-9-18 22:28:51 Dim pn As Long, pd As String, pdat As String, i As Long On Error Resume Next pn = CLng(InputBox("输入最大图片数")) pd = InputBox("输入图片存放路径：D:\2") pdat = InputBox(Prompt:="图片的扩展名", Default:=".JPG") For i = 1 To pn Selection.InlineShapes.AddPicture FileName:=pd & "\" & i & pdat, LinkToFile:= _ False, SaveWithDocument:=True Next i MsgBox "完成！"End Sub

5、回到Word窗口，上面宏要求插入图片名字按数字序命名才可以，从1开始增加。因此必须把所有图片改为从1开始命名文件。利用上回分享的经验《Excel怎样批量工作表改名》秒速改名，操作方法如下图。

7、动态图片要双击成单独大图才能播放全过程。