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

namrehx · 11-30-2017, 03:12 PM

Hi,

What I had working for a single checkbox and bookmark before needing help with multiple bookmarks for one checkbox was this:

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 = True
        HideText.Font.Hidden = False
    Else
        ShowText.Font.Hidden = False
        HideText.Font.Hidden = True
    End If

End Sub

The code that you provided makes the bookmark disappear when checking the checkbox. I'm trying to make it so that the bookmark appears when the checkbox is checked and not unchecked.

Code:

Private Sub CheckBox1_Click()
 
ActiveDocument.Bookmarks("Bookmark1").Range.Font.Hidden = CheckBox1.Value

End Sub

Using your coding, how would you make the bookmark appear instead of disappearing when checking the checkbox?