文本值上的 ShowHide 书签不起作用

Question

如果我的用户表单的文本框中没有值，我需要在 table 中隐藏一行。整个文档模板都有书签，我一直在使用下面的代码更改为 show/hide 基于复选框、选项按钮和组合列表的书签文本 - 所有这些都很好用。我的最后一步是根据是否有文本框值将相同的概念应用于行。我如何操作此代码以使其适用于 table 中的行？我要隐藏的行已添加书签。

Set pRng = ActiveDocument.Bookmarks("T6_Keep2").Range
If T6_Founder1.Value = True Then
    With pRng.Font
      .Hidden = True
    End With
    With ActiveWindow.View
      .ShowHiddenText = False
      .ShowAll = False
    End With
Else
    With pRng.Font
      .Hidden = False
    End With
    With ActiveWindow.View
      .ShowHiddenText = True
      .ShowAll = True
    End With
End If
Set pRng = Nothing

Answer 1

Word 没有"hide" table 行的功能。最好的办法是将文本格式化为隐藏，将 HeightRule 设置为 "exactly" 并将行高设置为 0。您可能仍会在屏幕上的布局中看到一些行，但它似乎无法打印如果您在打印预览中查看页面 - 至少在我的机器上。您可能还想对边框做一些处理，具体取决于它的显示方式。示例代码：

Dim rngBkm as Word.Range
Dim rw as Word.Row
Set rngBkm = ActiveDocument.Bookmarks("test").Range
Set rw = rngBkm.Rows(1)
rw.Range.Font.Hidden = true
rw.HeightRule = wdRowHeightExactly
rw.rng.Height = 0

文本值上的 ShowHide 书签不起作用

ShowHide bookmark on text value not working

vba

ms-word

userform