如何用VBA选中Word文档中所有表格的第一行？代码问题排查

你当前的代码每次执行row.Range.Select都会覆盖之前的选区，所以最终只会选中最后一个表格的第一行。要实现选中所有表格第一行，需要扩展选区而不是替换选区，或者先合并所有目标范围再选中。

方法一：通过扩展选区实现 #

Sub SelectFirstRowOfAllTables()
    Dim tbl As Table
    Dim isFirstSelection As Boolean
    
    isFirstSelection = False
    
    For Each tbl In ActiveDocument.Tables
        If Not isFirstSelection Then
            ' 选中第一个表格的第一行
            tbl.Rows(1).Range.Select
            isFirstSelection = True
        Else
            ' 扩展选区到当前表格的第一行
            tbl.Rows(1).Range.Select Extend:=wdExtend
        End If
    Next tbl
End Sub

• 说明：wdExtend是Word内置常量，值为2。如果代码运行时提示未定义，直接用Extend:=2替代即可。

方法二：合并目标范围后选中 #

Sub SelectFirstRowOfAllTables()
    Dim tbl As Table
    Dim combinedRange As Range
    
    ' 先判断文档是否有表格
    If ActiveDocument.Tables.Count = 0 Then Exit Sub
    
    ' 初始化合并范围为第一个表格的第一行
    Set combinedRange = ActiveDocument.Tables(1).Rows(1).Range
    
    ' 遍历剩余表格，合并范围
    For Each tbl In ActiveDocument.Tables
        If tbl.Index > 1 Then
            Set combinedRange = combinedRange.Combine(tbl.Rows(1).Range)
        End If
    Next tbl
    
    ' 选中最终合并的范围
    combinedRange.Select
End Sub

• 说明：Combine方法会将两个Range对象合并为一个包含两者的范围，适合批量收集需要选中的内容。

内容的提问来源于stack exchange，提问作者Hai An Le