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

在Word中使用Excel VBA循环插入图片，可以通过以下步骤实现：

首先，确保已经在Word中启用了开发工具选项卡。如果没有启用，请点击文件菜单，选择"选项"，在弹出的对话框中选择"自定义功能区"，勾选"开发工具"，然后点击"确定"。
在Word中打开Visual Basic编辑器。可以通过点击开发工具选项卡上的"Visual Basic"按钮或使用快捷键Alt+F11来打开。
在Visual Basic编辑器中，点击"插入"菜单，选择"模块"，在新建的模块中编写VBA代码。
在模块中编写以下VBA代码来实现循环插入图片的功能：

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