VB操作Word表格：获取特定行列数解决跨行列数不一致索引越界问题

嘿，我太懂这个坑了！Word里这种每行列数不统一的表格（比如有的行2列、有的行3列），直接用Columns.Count确实会踩雷——因为这个属性返回的是整个表格的最大列数，而非当前行的实际单元格数量，难怪读取短行时会触发索引越界错误。

你想的方向完全正确：就是要针对每行单独获取它的有效单元格数，Word对象模型里其实早就支持这个操作，只是容易被忽略而已。

修正后的代码示例 #

假设你原本的VBA逻辑是遍历表格行和列，改成下面这样就能解决问题：

Sub CopyWordTableToExcel()
    Dim wdApp As Object, wdDoc As Object
    Dim wdTable As Object
    Dim excelSheet As Worksheet
    Dim i As Long, j As Long
    Dim rowCells As Object
    
    ' 请根据实际路径和工作表名称调整以下内容
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open("你的Word文档路径.docx")
    Set wdTable = wdDoc.Tables(1)
    Set excelSheet = ThisWorkbook.Sheets("目标工作表")
    
    For i = 1 To wdTable.Rows.Count
        ' 获取当前行的所有单元格集合
        Set rowCells = wdTable.Rows(i).Cells
        ' 用当前行的实际单元格数作为循环上限，避免越界
        For j = 1 To rowCells.Count
            ' 移除Word单元格末尾自带的特殊字符（vbCr + Chr(7)），防止Excel显示乱码
            excelSheet.Cells(i, j).Value = Replace(rowCells(j).Range.Text, vbCr & Chr(7), "")
        Next j
    Next i
    
    ' 清理对象，避免内存泄漏
    wdDoc.Close SaveChanges:=False
    wdApp.Quit
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

关键逻辑说明 #

• wdTable.Rows(i).Cells.Count：这个属性会精准返回第i行实际存在的单元格数量，不管整个表格的最大列数是多少，从根源上避免了索引越界。
• 处理特殊字符：Word单元格的文本末尾默认会带有vbCr & Chr(7)（回车+控制字符），直接复制到Excel会出现多余换行或乱码，用Replace去掉就好。

如果你的表格存在跨列合并单元格的情况，上面的代码会把合并内容放到它所在的第一个Excel列中；要是需要将合并内容填充到对应的所有Excel列，还可以额外判断单元格的合并范围，但针对你提到的“避免索引越界”需求，上面的代码已经完全够用了。

内容的提问来源于stack exchange，提问作者Andreas P