Vba MS Word-根据内容控制值在表中隐藏行_Vba_Ms Word

Vba MS Word-根据内容控制值在表中隐藏行

vba ms-word

Vba MS Word-根据内容控制值在表中隐藏行,vba,ms-word,Vba,Ms Word,我有一个很长的word文件，包含几个表。每个表都包含一个项目列表，这些项目可能适用于用户，也可能不适用于用户我试图找到一种隐藏/屏蔽用户未填充的行的方法为此，我考虑编写一个子文件，遍历整个文档查找内容控件，然后检查contentcontrol.text=“NULL”是否正确，然后删除表行（或通过将行高度设置为0来隐藏它）有什么想法吗低于我的部分尝试 Sub HideRows() Dim d As Document Set d = ActiveDocument Dim cc As Con

我有一个很长的word文件，包含几个表。每个表都包含一个项目列表，这些项目可能适用于用户，也可能不适用于用户

我试图找到一种隐藏/屏蔽用户未填充的行的方法

为此，我考虑编写一个子文件，遍历整个文档查找内容控件，然后检查contentcontrol.text=“NULL”是否正确，然后删除表行（或通过将行高度设置为0来隐藏它）

有什么想法吗

低于我的部分尝试

Sub HideRows()
Dim d As Document
Set d = ActiveDocument
Dim cc As ContentControl

For Each cc In d.ContentControls         
    If cc.Range.Text = "NULL" Then

        'Delete the table row where this content control is located


    End If
Next
End Sub

假设：

每个
```
ContentControl
```
覆盖整个单行
在文档中不使用嵌套表

您可以将此代码放入

if语句中

：

CC.Range.Tables(1).Rows(CC.Range.Information(wdEndOfRangeRowNumber)).Delete