VBA код для отображения текста в закладке не работает

Question

Я создал выпадающий список ActiveX, и каждый параметр связан с закладкой для текста.Под элементами управления ActiveX скрыты закладки (R1 и R2).

Когда я нажимаю кнопку btnselect, все остальные закладки, кроме выбранной, удаляются и выбираютсячеловек становится видимымВ закладке R2

у меня есть MacroButton для отображения / скрытия другого текста (CollapseMentiuniReclamant).При нажатии кнопки запускается подпрограмма Expand1 sub или Collapse1 sub, но закладка CollapseMentiuniReclamant не отображается.

Я максимально упростил документ и коды.Ссылка на документ - https://wetransfer.com/downloads/1caea3c5d3b05e226e8b8f6a29760ad220190522071742/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

Я даже полностью удалил кнопку и запустил макрос из View Macros Tab, и он не работает.Почему CollapseMentiuniReclamant не появляется?

Answer 1

Это не отображается, потому что то, что вы пытаетесь скрыть / показать, находится вне диапазона закладок.В любом случае вы должны вставлять / удалять контент, а не просто переключать его скрытое свойство.Создание чего-то скрытого не гарантирует, что его не увидят и не распечатают (даже если не увидят), так как эти настройки зависят от того, как конечный пользователь настроил Word.