将excel中的数据及文件夹的图片批量填入word模板中

可以使用VBA将Excel中的数据及文件夹中的图片批量填入Word模板中，具体的步骤如下：

1. 在Word中打开模板文件，将需要填入数据的位置用书签标记，用于在VBA中定位。

2. 在Excel中打开VBA编辑器（按ALT + F11），在“工具”菜单中选择“参考”，勾选“Microsoft Word xx.x Object Library”和“Microsoft Office xx.x Object Library”。

3. 在VBA编辑器中插入一个新的模块，编写以下代码：

Sub ExportToWord()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdRange As Word.Range
    Dim myPath As String
    Dim myFileName As String
    Dim myExcel As Excel.Application
    Dim myWorkbook As Excel.Workbook
    Dim myWorksheet As Excel.Worksheet
    Dim myPicture As Variant
    Dim myBookmark As Bookmark
    
    '创建一个新的Word应用程序
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    '打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add(Template:="C:\MyTemplate.dotx")
    
    '设置Word文档的范围
    Set wdRange = wdDoc.Range(0, 0)
    
    '设置Excel应用程序
    Set myExcel = CreateObject("Excel.Application")
    myExcel.Visible = False
    
    '打开Excel文件
    myPath = "C:\MyFolder\"
    myFileName = "MyFile.xlsx"
    Set myWorkbook = myExcel.Workbooks.Open(myPath & myFileName)
    
    '设置Excel工作表
    Set myWorksheet = myWorkbook.Worksheets("Sheet1")
    
    '将Excel数据复制到Word文档中
    wdDoc.Bookmarks("Bookmark1").Range.Text = myWorksheet.Range("A1").Value
    wdDoc.Bookmarks("Bookmark2").Range.Text = myWorksheet.Range("B1").Value
    wdDoc.Bookmarks("Bookmark3").Range.Text = myWorksheet.Range("C1").Value
    
    '插入Excel图片
    myPicture = Dir("C:\MyFolder\Images\*.jpg")
    Do While myPicture <> ""
        Set myBookmark = wdDoc.Bookmarks("Bookmark4")
        myBookmark.Range.InlineShapes.AddPicture FileName:="C:\MyFolder\Images\" & myPicture, _
            LinkToFile:=False, SaveWithDocument:=True
        myPicture = Dir()
    Loop
    
    '关闭Excel文件和应用程序
    myWorkbook.Close SaveChanges:=False
    myExcel.Quit
    
    '保存Word文档
    wdDoc.SaveAs "C:\MyFolder\MyDocument.docx"
    
    '关闭Word文档和应用程序
    wdDoc.Close
    wdApp.Quit
    
    '释放对象变量
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Set myWorksheet = Nothing
    Set myWorkbook = Nothing
    Set myExcel = Nothing
End Sub

4. 修改代码中的文件路径和文件名，将Excel数据的位置和书签名称替换为实际位置和名称。

5. 修改代码中图片文件夹的路径，将需要插入的图片放入文件夹中。

6. 运行宏，它将创建一个新的Word文档，并将Excel数据和文件夹中的图片插入到模板中的书签位置。

注意事项：

1. 在插入图片时，需要将图片插入到书签的范围中，并使用AddPicture方法插入图片。

2. 如果需要插入其他类型的图片文件，如PNG或BMP，请修改代码中的文件类型。