Results 1 to 1 of 1
Thread: Code: cmd_ShowAll
2001-03-01, 21:55 #1
- Join Date
- Feb 2001
- Yilgarn region of Toronto, Ontario
- Thanked 0 Times in 0 Posts
With this post I start a new series of "Code:" postings.
The macro here can be loaded into your template. I'm starting a project of rebuilding my Under-The-Hood template. You can grab a copy from my home page, or you can follow the link in my signature to d/l a version of the template under construction.
If you decide to walk this path with me, I'll be adding text to the template as a diary of what I'm doing, and you'll always be able to execute the commands and menus to see how I'm going.
The template code is locked, however; you'll have to paste code from here into your own template that you are building.
As usual I'll try to respond to all questions posted here within twelve hours. If I have to, I'll consider getting up before 3am and/or going to bed after 1am. No promises, though.
<pre>Public Sub cmd_ShowAll()
' Procedure : cmd_ShowAll
' Description: Toggles the display of all nonprinting characters
' By: Chris Greaves Inc.
' Inputs: Called by the user
' Returns: None.
' Assumes: Nothing
' Side Effects: None.
' Tested: By a call from the user
' Credits: "The Underground Guide to Word For Windows" p 29 Woody Leonhard.
Dim boolSet As Boolean
' get NEGATED current fieldcodes setting
boolSet = Not ActiveWindow.View.ShowFieldCodes
ActiveWindow.View.ShowAll = boolSet
ActiveWindow.View.ShowFieldCodes = boolSet
ActiveWindow.View.ShowHiddenText = boolSet
ActiveWindow.View.ShowTabs = boolSet
ActiveWindow.View.ShowSpaces = boolSet
ActiveWindow.View.ShowParagraphs = boolSet
ActiveWindow.View.ShowBookmarks = boolSet