时间戳

首页 > 解决方案 > 删除隐藏的书签中包含的文本

vba - 删除隐藏的书签中包含的文本

问题描述

我创建了一个模板，其中根据特定复选框（内容控件）的值，使用以下公式隐藏使用与复选框具有相同名称的书签选择的段落

Dim bookmark As String
Dim ctl As ContentControl
For Each ctl In ActiveDocument.ContentControls
    If ctl.Type = wdContentControlCheckBox Then
        If ctl.Checked = False Then
            bookmark = ctl.Tag
            Bookmarks(bookmark).Range.Font.Hidden = True
        Else
            bookmark = "hide_" & ctl.Tag
            Bookmarks(bookmark).Range.Font.Hidden = True
        End If
    End If
Next

我正在尝试删除使用上述公式的段落的文档（删除它们）。
我试图剥离隐藏段落的文档，因为我想对段落进行编号，并且在不删除它们的情况下，编号是指隐藏的段落。

使用隐藏字体查找和替换并没有帮助，因为它是不同类型的隐藏内容。我认为书签保存在 xml 代码中。

标签： vbams-word

解决方案

尝试：

Dim CCtrl As ContentControl
For Each CCtrl In ActiveDocument.ContentControls
  With CCtrl
    If .Type = wdContentControlCheckBox Then
      If .Checked = False Then
        ActiveDocument.Bookmarks(.Tag).Range.Delete
      End If
    End If
  End With
Next

推荐阅读