Toggle Button

Squibble · #1 06-11-2014, 05:48 AM

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

Quote:

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 · #2 06-11-2014, 11:58 AM

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:

Code:

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 · #3 06-11-2014, 05:36 PM

Simpler:

Code:

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to toggle outline level	Jennifer Murphy	Word VBA	3	01-22-2014 11:22 PM
Toggle objects on / off with custom toolbar	Milon	Word VBA	3	07-23-2013 06:21 AM
Macro to toggle outline level	Jennifer Murphy	Word VBA	0	07-08-2013 08:20 AM
Toggle Merge Field Code Help Please	tonywatsonmail	Mail Merge	2	08-11-2011 07:06 AM
Toggle updates	dbugosh	Office	2	12-16-2010 07:54 AM