Microsoft Office Forums - View Single Post - [Solved] How to use checkbox to show/hide bookmarked text?

namrehx · 11-29-2017, 01:31 PM

I'm trying to create a document in Word 2016 that will allow a user to have the ability to check a checkbox to make specific bookmarked text content appear within the document and to disappear when unchecked.

I have tried two different sets of VBA code while using an ActiveX Control type checkbox for the UI but nothing is working. To bookmark a set of text, I highlighted the text that I want and added a bookmark named "Bookmark1". I am not a programmer by any means. What am I missing or what can i do to accomplish what I want? I'm trying to do this for multiple checkboxes and bookmarks. Thanks.

Set 1:

Code:

Private Sub CheckBox1_Click()
If Bookmarks("Bookmark1").Range.Font.Hidden = True Then
Bookmarks("Bookmark1).Range.Font.Hidden = False
Else
Bookmarks("Bookmark1).Range.Font.Hidden = True
End If
End Sub

Set 2:

Code:

 Private Sub CheckBox1_Click()
    Dim ShowText As Range
    Dim HideText As Range
    
    Set ShowText = ActiveDocument.Bookmarks("Bookmark1").Range
    Set HideText = ActiveDocument.Bookmarks("Bookmark1").Range
    
    If CheckBox1.Value = True Then
        ShowText.Font.Hidden = False
        HideText.Font.Hidden = True
    Else
        ShowText.Font.Hidden = True
        HideText.Font.Hidden = False
    End If

End Sub