在word里批量插入由文件创建对象，word宏定义批量插入对象

需要在word中大量插入图片或者对象时，一个一个手动插入工作量大，最主要是烦，影响我们的生活、情绪，还影响我们的工资，，，，，，，，，

所以我们定义宏vba来处理最方便不过，顺便能让老板给你涨工资。今天先来看看怎么做，后期会出vba语法的。

步骤：

1、新建一个word文档，啥都没有的那种哦，

2、点击开发工具，

3、点击宏，

4、创建宏

5、遍历文件夹

Sub 批量插入对象()
    Dim fs, f, f1, fc
    Dim num As Integer
    Dim Str(100) As String
    num = -1
    Set fs = CreateObject("scripting.filesystemobject")
    Set f = fs.getfolder("C:\Users\adol\Desktop\mike")
    Set fc = f.Files
    
    Debug.Print "该文件夹里的所有文件有："
    For Each f1 In fc
        num = num + 1
'输出一下文件名，注释符是 英文状态下的‘号
        Debug.Print f1 
    Next
    Debug.Print "文件总数：" & num
      
End Sub

6、在编辑器里键入以下代码，遍历并插入对象；

Sub 批量插入对象()
    Dim fs, f, f1, fc    '定义变量
    Dim num As Integer    '
    Dim Str(100) As String   '
    num = -1
    Set fs = CreateObject("scripting.filesystemobject")   '文件流
    Set f = fs.getfolder("C:\Users\adol\Desktop\mike")   '获取文件名集合，文件夹路径
    Set fc = f.Files      '文件集合
    
    Debug.Print "该文件夹里的所有文件有："
    For Each f1 In fc
        num = num + 1        '计数
        Selection.InlineShapes.AddOLEObject ClassType:="Visio.Drawing.11", _
        FileName:=f1, LinkToFile:=False, _
        DisplayAsIcon:=False
        Debug.Print f1 & "已插入文件"
    Next
    Debug.Print "文件总数：" & num
      
End Sub

6、结果就是，你得文件夹里的对象都插入到了你的word文档里。