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、 接着就是结果