Hi Patricia:
Switch to a mono-spaced font. If you use styles, you can instantly change
the font back and forth by simply tweaking the font of the style.
Here's a rather sophisticated approach I use in production. It changes all
the working styles in a document to the corporate fonts (which are
PostScript fonts that look horrible on the screen) from the default Arial
and Times that we use for authoring because they are easier on the eye. The
only trick in this code allows for the fact that that in corporate document
work, people do play around with style names.
Word¹s Styles are not case-sensitive when you apply them, but internally it
distinguishes, for example, Body Text, Body text, and body text. So if a
user has been playing, or copied text in from another document, you may have
some strange style names in there. So the code upper-cases the style name
before comparing it in the Select...Case statement, to make sure we get it,
whatever it is.
Sub ChangeStyleFonts()
Dim aStyle As Style
For Each aStyle In ActiveDocument.Styles
Select Case UCase(aStyle.NameLocal)
' The body text styles
Case Is = "BLOCK TEXT", "BODY TEXT", "BODY TEXT 2", "BODY TEXT 3", _
"BODY TEXT FIRST INDENT", "BODY TEXT FIRST INDENT 2", _
"BODY TEXT INDENT", "BODY TEXT INDENT 2", "BODY TEXT INDENT 3", _
"CAPTION", "EDITQUERY", "FEATURE BENEFIT BULLET", "FIELDNUMBERING",
_
"GRAPHIC", "INDEX 1", "INDEX 2", "INDEX 3", "INDEX 4", "INDEX 5",
"INDEX 6", _
"INDEX 7", "INDEX 8", "INDEX 9", "LIST", "LIST 2", "LIST 3", _
"LIST 4", "LIST 5", "LIST BULLET", "LIST BULLET 2", "LIST BULLET
3", _
"LIST BULLET 4", "LIST BULLET 5", "LIST BULLET LAST", "LIST
CONTINUE", _
"LIST CONTINUE 2", "LIST CONTINUE 3", "LIST CONTINUE 4", "LIST
CONTINUE 5", _
"LIST NUMBER", "LIST NUMBER 2", "LIST NUMBER 3", "LIST NUMBER 4", _
"LIST NUMBER 5", "NORMAL", "NORMAL (WEB)", "NORMAL INDENT", "PAGE
NUMBER", _
"QUESTION", "QUESTION BULLET", "TABLE BULLET", "TABLE NUMBER", _
"TABLE TEXT", "TOC 4", "TOC 5", "TOC 6", "TOC 7", "TOC 8", "TOC 9"
With aStyle
.Font.Name = "Weidemann Book"
.LanguageID = wdEnglishAUS
End With
' The Heading styles
Case Is = "BOOK TITLE", "FOOTER", "FOOTERLEFT", "HEADER",
"HEADERLEFT", _
"HEADING 1", "HEADING 2", "HEADING 3", "HEADING 4", "HEADING 5",
"HEADING 6", _
"HEADING 7", "HEADING 8", "HEADING 9", "INDEX HEADING", "SUBTITLE",
_
"SUMMARY", "TABLE HEADING", "TABLE OF AUTHORITIES", "TABLE OF
FIGURES", _
"TENDERFOOTERLEFT", "TENDERFOOTERRIGHT", "TENDERHEADER", _
"TITLE", "TOA HEADING", "TOC 1", "TOC 2", "TOC 3"
With aStyle
.Font.Name = "Formata Cond K Regular"
.LanguageID = wdEnglishAUS
End With
End Select
Next ' astyle
End Sub
I would welcome any suggestions on how to make the nonprinting space
character (the tiny grey dot between words) more visible. I find it
very hard to see.
--
Please reply to the newsgroup to maintain the thread. Please do not email
me unless I ask you to.
John McGhie <
[email protected]>
Consultant Technical Writer
Sydney, Australia +61 4 1209 1410
