Toggle Button

[Squibble]

Hello



I've added a Bookmark to my document I am trying to create a Show/Hide, I assume A Toggle Button is best suited to this task. I have named the Toggle Button Caption "Show" and added the following code it however won't work can somebody help? It will be gratefully appreciated

If .Togglebutton1.Caption = "Show"
ActiveDocument.Bookmarks("PreApproved").Range.Font .Hidden = False
ToggleButton1.Caption = "Hide"
Else
If .ToggleButton1.Caption = "Hide" Then
ActiveDocument.Bookmarks("PreApproved").Range.Font .Hidden = True

I have searched the internet but not having much luck.

[jpb103]

You have a space between .Font and .Hidden. This should cause a syntax error. I just made something similiar myself, except I did not use a command button. I inserted a bookmark called "HelpText" and then, in the line just above the bookmark, I pressed Ctrl+F9 and inside the {} that appeared I wrote: MACROBUTTON ToggleHelp Toggle
Then I pressed Alt+F9 to activate it. The code for the ToggleHelp macro I wrote follows:

Sub ToggleHelp()
'///////////////////////////////////////////////////////////////////////////////////
'///////////////This function toggles the instructions for use//////////////////////
'///////////////////////////////////////////////////////////////////////////////////
If (ActiveDocument.Bookmarks("HelpText").Range.Font.Hidden) Then
    ActiveDocument.Bookmarks("HelpText").Range.Font.Hidden = False
Else
    ActiveDocument.Bookmarks("HelpText").Range.Font.Hidden = True
End If
'//////////////////END//////////////////////////////////////////////////////////////
End Sub

That way you just double click the word "Toggle" and it hides/shows the bookmarked block.

[macropod]

Simpler:

Sub ToggleHelp()
With ActiveDocument.Bookmarks("HelpText").Range.Font
  .Hidden = Not .Hidden
End With
End Sub