用VBA将"C:\Users\wuxil\OneDrive\桌面\大衣柜进料图纸\大衣柜进料图纸"的JPG格式图片,逐页插入到word

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

Sub InsertImagesToWord()
    Dim ws As Object
    Dim imgFolder As String
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim imgFile As String
    
    ' 设置图片文件夹路径
    imgFolder = "C:\Users\wuxil\OneDrive\桌面\大衣柜进料图纸\大衣柜进料图纸"
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set wordDoc = wordApp.Documents.Add
    
    ' 遍历图片文件夹中的所有JPG文件
    imgFile = Dir(imgFolder & "\*.jpg")
    Do While imgFile <> ""
        ' 插入图片到Word文档中
        wordApp.Selection.InlineShapes.AddPicture FileName:=imgFolder & "\" & imgFile
        
        ' 插入分页符
        wordApp.Selection.InsertBreak Type:=7
        
        ' 获取下一个JPG文件名
        imgFile = Dir
    Loop
    
    ' 显示Word应用程序窗口
    wordApp.Visible = True
    
    ' 清空对象引用
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

请替换`imgFolder`变量的值为您实际的图片文件夹路径。然后运行上述VBA代码，它将逐页插入指定文件夹中的JPG图片到一个新的Word文档中。最后，将会打开Word应用程序窗口以显示生成的文档。