word批量插入某目录下的所有图片及图片名称

1、 新建一空白word文档

 

2、 按ALT+F11调出开发工具

3、 点击“宏”，显示宏列表

输入宏名，如：test

点击“新建”，然后在Sub test()与 End Sub间输入如下代码：

 

‘’’’’’’’’’’’’’’’’’’’

'插入一表格

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

       1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

       wdAutoFitFixed

   With Selection.Tables(1)

       If .Style <> "网格型" Then

           .Style = "网格型"

       End If

       .ApplyStyleHeadingRows = True

       .ApplyStyleLastRow = False

       .ApplyStyleFirstColumn = True

       .ApplyStyleLastColumn = False

       .ApplyStyleRowBands = True

       .ApplyStyleColumnBands = False

   End With

   

   ' 显示 C:\目录下的名称。

MyPath = "F:\self\照片&视频\会展中心\"   ' 指定路径。最后必须加上\

MyName = Dir(MyPath, vbDirectory)   ' 找寻第一项。

Do While MyName <> ""   ' 开始循环。

   ' 跳过当前的目录及上层目录。

   If MyName <> "." And MyName <> ".." Then

       ' 使用位比较来确定 MyName代表一目录。

       If InStr(MyName, "jpg") Then

          ' Debug.Print MyName    ' 如果它是一个目录，将其名称显示出来。

           Selection.InsertRows 1

           Selection.Collapse Direction:=wdCollapseStart

           

           Selection.InlineShapes.AddPicture FileName:=MyPath + MyName, LinkToFile:= _

       False, SaveWithDocument:=True

           Selection.TypeText Text:=MyName

       End If

   End If

   MyName = Dir    ' 查找下一个目录。

Loop

‘’’’’’’’’’’’’’’’’’’’’’’’’’

 

 

其中：

修改成你自己的图片所在目录，记得最后必须加上“\”

 

4、 保存，返回原来空白的word文档

点击“宏”，选择“test”，然后点击运行~

5、 接着就是结果