用VBA将“C：\Users\wuxil\OneDrive\桌面\大衣柜进料图纸\大衣柜进料图纸”的JPG格式图片，逐页插入到word中,图片横放尺寸200x187

您可以使用以下VBA代码将JPG格式的图片逐页插入到Word中：

Sub InsertImagesToWord()
    Dim imagePath As String
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim wordRange As Object
    Dim wordShape As Object
    
    ' 设置图片路径
    imagePath = "C:\Users\wuxil\OneDrive\桌面\大衣柜进料图纸\大衣柜进料图纸\"
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True ' 可见性设置为True，以便您可以观察插入的过程
    
    ' 创建一个新的Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 获取Word文档的Range对象，以便插入图片
    Set wordRange = wordDoc.Range
    
    ' 循环插入每一页的图片
    Dim i As Integer
    For i = 1 To 100 ' 假设有100页图片
        ' 构建图片文件路径
        Dim imageFile As String
        imageFile = imagePath & "Page" & i & ".jpg"
        
        ' 插入图片到Word文档中
        Set wordShape = wordDoc.InlineShapes.AddPicture(Filename:=imageFile, LinkToFile:=False, SaveWithDocument:=True).Range
        
        ' 调整图片尺寸
        With wordShape
            .LockAspectRatio = msoFalse ' 解锁纵横比
            .Width = 200 ' 设置宽度为200
            .Height = 187 ' 设置高度为187
        End With
        
        ' 插入换行符
        wordRange.Collapse Direction:=0 ' 将Range对象折叠到结束位置
        wordRange.InsertAfter vbCrLf ' 插入换行符以分隔每一页的图片
    Next i
    
    ' 清理对象
    Set wordShape = Nothing
    Set wordRange = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

此代码会将指定文件夹中的JPG格式图片逐页插入到Word文档中，每页插入一张图片。将代码复制粘贴到VBA编辑器中，然后运行`InsertImagesToWord`宏即可。