Word VBA技术问询：光标在子表格中时如何选中外层表格行

没问题，我来帮你搞定这个Word VBA的需求！当光标落在嵌套的子表格里时，我们可以通过定位子表格的父单元格，轻松找到外层表格对应的行并选中。下面是两种场景的实现代码：

如果你的文档里只有一层嵌套（外层表格的单元格里直接放子表格），用这段代码就足够了：

Sub SelectOuterTableRow()
    Dim currentTable As Table
    Dim parentCell As Cell
    Dim outerTableRow As Row
    
    ' 先检查光标是否在表格内，避免报错
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "光标不在表格中，请将光标置于嵌套子表格内！", vbExclamation
        Exit Sub
    End If
    
    ' 获取当前光标所在的子表格
    Set currentTable = Selection.Tables(1)
    
    ' 子表格的父对象就是它所在的外层表格单元格
    Set parentCell = currentTable.Parent
    
    ' 获取该单元格所属的外层表格行
    Set outerTableRow = parentCell.Row
    
    ' 选中目标行
    outerTableRow.Select
End Sub

代码说明： #

• Selection.Information(wdWithInTable)：用来判断当前光标是否处于表格范围内，提前拦截错误情况
• currentTable.Parent：Word中嵌套表格是直接放置在单元格内的，所以子表格的父对象就是它所在的单元格
• parentCell.Row：通过单元格直接获取其所属的外层表格行，最后调用Select方法完成选中操作

如果你的文档存在多层嵌套（子表格里还有子表格），想要选中最顶层的外层表格行，可以用这段循环遍历的代码：

Sub SelectTopOuterTableRow()
    Dim currentTable As Table
    Dim parentCell As Cell
    Dim outerTableRow As Row
    
    If Selection.Information(wdWithInTable) = False Then
        MsgBox "光标不在表格中，请将光标置于嵌套子表格内！", vbExclamation
        Exit Sub
    End If
    
    Set currentTable = Selection.Tables(1)
    
    ' 循环往上遍历父对象，直到找到最顶层的单元格
    Set parentCell = currentTable.Parent
    Do While TypeName(parentCell.Parent) = "Cell"
        Set parentCell = parentCell.Parent
    Loop
    
    ' 获取最顶层单元格所属的外层表格行并选中
    Set outerTableRow = parentCell.Row
    outerTableRow.Select
End Sub

代码说明： #

• 通过Do While循环不断向上查找父对象，直到父对象不再是单元格（说明已经到了最外层表格的单元格）
• 最终获取的parentCell.Row就是最顶层外层表格的对应行

内容的提问来源于stack exchange，提问作者Aaron Tarazon