Word VBA宏仅支持插入6张图片，求修改以支持批量插入并维持指定布局

原VBA宏仅支持插入6张图片并固定生成6行2列表格，无法处理超过6张的图片需求。以下是修改后的宏代码，可自动在当前表格满额后新增表格，继续放置后续图片及对应文本行：

Sub InsertScreenshotsWithCustomText()
    Dim myFolder As String, myFile As String
    Dim tbl As Table
    Dim rowCount As Integer, colCount As Integer
    Dim imgIndex As Integer ' 记录当前处理的图片序号
    
    myFolder = "path\to\folder\images\stored" ' 修改为你的图片文件夹路径
    myFile = Dir(myFolder & "*.jpg") ' 根据需要修改图片扩展名，如.png/.jpeg等
    imgIndex = 1
    
    ' 初始化第一个表格
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=6, NumColumns:=2)
    tbl.AllowAutoFit = True
    rowCount = 1
    colCount = 1
    
    Do While Len(myFile) > 0
        ' 插入图片到当前单元格
        Dim pic As InlineShape
        Set pic = tbl.Cell(rowCount, colCount).Range.InlineShapes.AddPicture( _
            FileName:=myFolder & myFile, LinkToFile:=False, SaveWithDocument:=True)
        pic.Height = InchesToPoints(2)
        pic.Width = tbl.Cell(rowCount, colCount).Width - 4 ' 留小边距适配列宽
        
        ' 获取自定义文本并插入到图片下方单元格
        Dim customText As String
        customText = InputBox("Enter text below the image (Image " & imgIndex & "):", "Custom Text", "Enter your text here")
        tbl.Cell(rowCount + 1, colCount).Range.Text = customText
        tbl.Cell(rowCount + 1, colCount).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
        
        ' 更新计数，准备处理下一张图
        imgIndex = imgIndex + 1
        colCount = colCount + 1
        
        ' 切换到下一行
        If colCount > 2 Then
            colCount = 1
            rowCount = rowCount + 2
        End If
        
        ' 当前表格已满，新增表格
        If rowCount > 6 Then
            ' 将光标移到当前表格末尾，准备新建表格
            tbl.Range.Select
            Selection.Collapse Direction:=wdCollapseEnd
            Selection.TypeParagraph ' 加空行分隔表格
            
            ' 创建新表格，重置行/列计数
            Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=6, NumColumns:=2)
            tbl.AllowAutoFit = True
            rowCount = 1
            colCount = 1
        End If
        
        myFile = Dir
    Loop
End Sub

关键修改说明 #

• 新增imgIndex变量：替代原代码依赖行号的计数逻辑，确保图片序号连续准确
• 删除原Exit Do终止语句：不再因表格满额停止处理，改为自动创建新表格
• 新增表格创建逻辑：当当前表格行计数超过6时，将光标移至表格末尾，插入空行后新建6行2列表格，重置计数后继续处理后续图片

内容的提问来源于stack exchange，提问作者Hemil Mehul Shah