macro to toggle Autotext Menu on & off

J

JustSomeGuy

Seems like it should go something like this - but it doesn't work:

Sub ViewAutotextMenu()
IF CommandBars("AutoText").Visible = True
Then CommandBars("AutoText").Visible = False
End If
if CommandBars("AutoText").Visible = False
Then CommandBars("AutoText").Visible = True
End If
End Sub
 
G

Graham Mayor

Sub ViewAutotextMenu()
With CommandBars("AutoText")
.Visible = Not .Visible
End With
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Select Text to End of Footnote 9
Word macro that can call cells out of Excel for a find and replace 0
Getting Radio Buttons to work, that are inserted via AutoText 0
Modern equivalent of Autotext in Word? 0
AutoOpen macro doesn't run 3
VBA-Table Word 2019 - Move a selected text, from a cell to the adjacent cell to its right, by pressing the ENTER key 0
VBA word change keys 0
Making a macro only work on certain files 2

Top