Word含垂直合并单元格的表格按用户输入隐藏指定区块问题

需要在包含垂直/水平合并单元格的Word表格中，根据用户输入（例如选择“2”）显示前N个区块，隐藏剩余区块（表格最多含6个区块）。已尝试三种方法但均存在问题：

• 按行隐藏：执行代码T.Rows(((i - 1) * 6) + j).range.Font.Hidden = True，触发错误5991：无法访问此集合中的单个行，因为表格包含垂直合并的单元格
• 按单元格隐藏：执行代码T.Cell(((i - 1) * 6) + j, 1).range.Font.Hidden = False，仅隐藏文本，单元格边框和背景仍可见
• 按书签隐藏：为各区块定义书签后执行以下代码，隐藏后会留下带边框的空行

  Dim curBookmark As Bookmark
  curBookmark = ActiveDocument.Bookmarks("LABEL" & i)
  curBookmark.range.Font.Hidden = True
  

针对合并单元格的表格，推荐两种可靠的隐藏方案：

方案1：基于书签的完整区块隐藏（含边框） #

利用书签精准定位区块范围，同时处理内容隐藏、边框清除和书签保留，彻底解决空行和边框残留问题：

Sub HideTableBlocks(targetNum As Integer)
    Dim doc As Document
    Dim bkmk As Bookmark
    Dim i As Integer
    
    Set doc = ActiveDocument
    
    ' 重置所有区块为显示状态
    For i = 1 To 6
        If doc.Bookmarks.Exists("LABEL" & i) Then
            Set bkmk = doc.Bookmarks("LABEL" & i)
            bkmk.Range.Font.Hidden = False
            bkmk.Range.Tables(1).Borders.Enable = True
            bkmk.Range.Shading.Texture = wdTextureNone
        End If
    Next i
    
    ' 隐藏目标数之后的区块
    For i = targetNum + 1 To 6
        If doc.Bookmarks.Exists("LABEL" & i) Then
            Set bkmk = doc.Bookmarks("LABEL" & i)
            ' 隐藏整个区块范围（含段落占位）
            bkmk.Range.Hidden = True
            ' 清除边框和背景
            bkmk.Range.Tables(1).Borders.Enable = False
            bkmk.Range.Shading.Texture = wdTextureNone
            ' 重新绑定书签，避免隐藏后失效
            doc.Bookmarks.Add Name:="LABEL" & i, Range:=bkmk.Range
        End If
    Next i
End Sub

' 调用示例：用户选择2时，显示1、2，隐藏3-6
Sub TestHide()
    HideTableBlocks 2
End Sub

核心要点 #

• 用Range.Hidden = True替代Font.Hidden：隐藏整个段落占位，解决空行残留
• 同步禁用边框+清除背景：彻底移除区块的视觉痕迹
• 重新添加书签：避免隐藏范围导致书签失效

方案2：直接定位单元格范围（无需书签） #

如果区块行数固定（例如你代码中的6行），可通过单元格坐标定位区块范围：

Sub HideBlocksByCellRange()
    Dim tbl As Table
    Dim startCell As Cell, endCell As Cell
    Dim blockRange As Range
    Dim targetNum As Integer
    
    targetNum = 2 ' 用户输入的目标值
    Set tbl = ActiveDocument.Tables(1)
    
    ' 遍历需要隐藏的区块
    For i = targetNum + 1 To 6
        ' 计算区块的起始/结束单元格
        Set startCell = tbl.Cell((i - 1) * 6 + 1, 1)
        Set endCell = tbl.Cell(i * 6, tbl.Columns.Count)
        ' 获取区块完整范围
        Set blockRange = ActiveDocument.Range(startCell.Range.Start, endCell.Range.End)
        
        ' 隐藏范围并清除边框
        blockRange.Hidden = True
        blockRange.Tables(1).Borders.Enable = False
    Next i
End Sub

注意事项 #

• 需确保每个区块的行数固定，否则需调整单元格坐标计算逻辑
• 若区块内合并单元格不规则，优先选择书签方案

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