无书签文本的VBA代码不起作用

Question

我已经创建了一个ActiveX下拉列表，每个选项都链接到文本的书签。在ActiveX控件下，有书签(R1和R2(，隐藏。

当我按下btnselect按钮时，除选定的书签外，所有其他书签都会被删除，并且所选的书签变得可见。在书签R2

中

我有一个MacroButton用于显示/隐藏另一个文本(CollapseMentiuniReclamant(。单击按钮时，它运行的是Expand1 sub或 Collapse1 sub，但书签CollapseMentiuniReclamant不显示。

我已经尽可能简化了文档和代码。链接到文档-https：//wetransfer.com/downloads/1CAEA3C5D3B05E226E8B8B8F6A29760AD220190522071742/15DB59。

VBA代码是：

Private Sub btnselect_Click()
If ComboBox1.Value = "1" Then
Bookmarks("R1").Range.Font.Hidden = False
Bookmarks("R2").Range.Font.Hidden = False
Bookmarks("R2").Range.Delete
End If
If ComboBox1.Value = "2" Then
Bookmarks("R1").Range.Font.Hidden = False
Bookmarks("R1").Range.Delete
Bookmarks("R2").Range.Font.Hidden = False
Bookmarks("CollapseMentiuniReclamant").Range.Font.Hidden = True
End If
End Sub
Sub Expand1()
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Collapse1").Insert _
Where:=Selection.Range
Bookmarks("CollapseMentiuniReclamant").Range.Font.Hidden = False
End Sub
Sub Collapse1()
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Expand1").Insert _
Where:=Selection.Range
Bookmarks("CollapseMentiuniReclamant").Range.Font.Hidden = True
End Sub

更新：我已经简化了代码的最后一部分，问题仍然存在：

Sub Expand1()
Bookmarks("CollapseMentiuniReclamant").Range.Font.Hidden = False
End Sub

我什至完全删除了按钮，并从视图宏选项卡中运行了宏，但它不起作用。CollapseMentiuniReclamant为什么不显示？

Answer 1

它没有出现，因为您要隐藏/UNDIDE的内容不在书签范围内。无论如何，您应该插入/删除内容，而不仅仅是切换其隐藏属性。不能保证它不会看到或打印(即使看不见(，因为这些设置取决于最终用户如何配置单词。