将文件夹中图片按顺序批量依次插入word文件表格中，一页一张，总共55张，能做到吗？

Question

将文件夹中图片按顺序批量依次插入word文件表格中，一页一张，总共55张，能做到吗？

Answer 1

阿里嘎多学长整理AIGC生成，因移动端显示问题导致当前答案未能完全显示，请使用PC端查看更加详细的解答过程

可以实现

可以使用 VBA 语言在 Word 中编写一个宏来实现批量插入图片的功能。下面是一个示例代码：

Sub InsertImages()
    Dim doc As Document
    Dim table As Table
    Dim row As Row
    Dim cell As Cell
    Dim i As Integer
    Dim filePath As String
    
    Set doc = ActiveDocument
    Set table = doc.Tables.Add(0, 1, 55)
    table.Borders.Enable = True
    
    For i = 1 To 55
        filePath = "C:\Path\To\Image\" & i & ".jpg" '修改图片文件路径
        table.Cell(i, 1).Range.InlineShapes.AddPicture filePath, LinkToFile:=False, SaveWithDocument:=True
    Next i
End Sub

请注意，需要将图片文件路径修改为实际路径，并且需要将 VBA 代码保存到 Word 文件中，然后在 Word 中运行该宏。

另外，如果你想将图片插入到表格的指定列，可以修改 table.Cell(i, 1) 为 table.Cell(i, 列号)，其中 列号 是要插入图片的列号。