VBA多条Excel及相片记录写入到WORD文档中

可以使用VBA将多条Excel记录和相应的图片插入到Word文档中，具体的步骤如下：

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

2. 在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 myChart As Excel.ChartObject
    Dim myPicture As Excel.Shape
    
    '创建一个新的Word应用程序
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    
    '打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    '设置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文档中
    myWorksheet.Range("A1:C10").Copy
    wdRange.Paste
    
    '插入Excel图表
    Set myChart = myWorksheet.ChartObjects(1)
    myChart.CopyPicture
    wdRange.Paste
    
    '插入Excel图片
    Set myPicture = myWorksheet.Shapes(1)
    myPicture.Copy
    wdRange.Paste
    
    '关闭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

3. 修改代码中的文件路径和文件名，将Excel数据范围、图表和图片的位置替换为实际位置。

4. 运行宏，它将创建一个新的Word文档，并将Excel数据、图表和图片插入到文档中。

注意事项：

1. 如果在代码中使用了旧版本的Office对象库（如“Microsoft Word 14.0 Object Library”），则需要打开Excel时使用旧版本的Excel对象库（如“Microsoft Excel 14.0 Object Library”）。

2. 在插入图片时，需要将图片复制到剪贴板中，并在Word文档的范围中使用Paste方法粘贴图片。