使用Excel VBA在Word中使用循环插入图片

Sub InsertPictures()
    Dim ExcelApp As Object
    Dim ExcelWorkbook As Object
    Dim ExcelWorksheet As Object
    Dim WordDoc As Document
    Dim PicturePath As String
    Dim PictureCount As Integer
    Dim i As Integer
    
    ' 设置Excel文件路径和图片数量
    PicturePath = "C:\Pictures\" ' 图片所在文件夹路径
    PictureCount = 10 ' 图片数量
    
    ' 创建Excel对象
    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Visible = False ' 设置Excel不可见
    
    ' 打开Excel文件
    Set ExcelWorkbook = ExcelApp.Workbooks.Open("C:\Data.xlsx") ' Excel文件路径
    
    ' 指定要操作的工作表
    Set ExcelWorksheet = ExcelWorkbook.Worksheets("Sheet1") ' 工作表名称
    
    ' 创建Word对象
    Set WordDoc = ActiveDocument
    
    ' 循环插入图片
    For i = 1 To PictureCount
        ' 获取图片文件名
        PictureFileName = ExcelWorksheet.Cells(i, 1).Value ' 图片文件名所在列的位置
        
        ' 构建图片文件路径
        PictureFilePath = PicturePath & PictureFileName
        
        ' 插入图片到Word文档
        WordDoc.InlineShapes.AddPicture FileName:=PictureFilePath, LinkToFile:=False, SaveWithDocument:=True
        
        ' 插入换行符
        WordDoc.Paragraphs.Add
    Next i
    
    ' 关闭Excel文件和对象
    ExcelWorkbook.Close SaveChanges:=False
    ExcelApp.Quit
    Set ExcelWorksheet = Nothing
    Set ExcelWorkbook = Nothing
    Set ExcelApp = Nothing
    
    ' 释放Word对象
    Set WordDoc = Nothing
End Sub