The newsletter a couple of weeks ago featured a macro that would set all headings in a Word document in true title case, with articles and prepositions lowercased. But what if you have a document in which an author has typed other stuff in all caps--author names in footnotes, or book titles in body text? It would be nice to have a macro that would look for anything in all caps and turn it to title case. I've modified the macro to do just that:<\/p>\n
'THE MACRO STARTS HERE\nSub FixAllCapsInText()\n'Macro created 10\/19\/2003 by Jack M. Lyon\nSelection.Find.ClearFormatting\nWith Selection.Find\n.Text = \"[A-Z]{2,}\"\n.Replacement.Text = \"\"\n.Forward = True\n.Wrap = wdFindStop\n.Format = False\n.MatchCase = False\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = True\nEnd With\nSelection.Find.Execute\nWhile Selection.Find.Found = True\nSelection.Range.Case = wdTitleWord\nSelect Case Selection.Range\nCase \"A\", \"An\", \"As\", \"At\", \"And\", \"But\", _\n\"By\", \"For\", \"From\", \"In\", \"Into\", \"Of\", _\n\"On\", \"Or\", \"Over\", \"The\", \"Through\", _\n\"To\", \"Under\", \"Unto\", \"With\"\nwrd.Case = wdLowerCase\nCase \"Usa\", \"Nasa\", \"Usda\", \"Ibm\", \"Nato\"\nwrd.Case = wdUpperCase\nEnd Select\nSelection.MoveRight Unit:=wdCharacter, Count:=1\nSelection.Find.Execute\nWend\nMsgBox \"Finished!\", , \"Fix All Caps in Text\"\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
If you don't know how to use macros like that one, you can learn how here:<\/p>\n
The key to the macro is this line:<\/p>\n
.Text = \"[A-Z]{2,}\"<\/p>\n
That tells Word to do a wildcard search for two or more capital letters in a row. If you like, you can make that number larger to avoid such common acronyms as USA and NASA. A better way to take care of such items, however, is to list them in the following line of the macro:<\/p>\n
Case \"Usa\", \"Nasa\", \"Usda\", \"Ibm\", \"Nato\"<\/p>\n
For more information, see the newsletter here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1715119894<\/p>\n
And the Readers Write column in last week's newsletter here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1715197755<\/p>\n
And if you'd like more information about wildcard searching, feel free to download my paper \"Advanced Find and Replace in Microsoft Word\":<\/p>\n
http:\/\/www.editorium.com\/ftp\/advancedfind.zip<\/p>\n
Thanks to Linda Northrup for suggesting this topic.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
Jim Pinkham pointed out that the modified macro in last week's Readers Write column had a mistake on one line:<\/p>\n
wrd.Case = wdUpperCase End Select<\/p>\n
That should actually be two lines, like this:<\/p>\n
wrd.Case = wdUpperCase<\/p>\n
End Select<\/p>\n
If you had trouble running the macro, that's why.<\/p>\n
Johanna Murphy wrote:<\/p>\n
\"The Title Case Headings Macro is awesome! Although I would need one where you only change one level at a time. Also, I have created other styles which are named OUT and OUTNUMBER (with only 5 levels) that we use a lot in our law firm. How can I change the macro to specify those style names?\"<\/p>\n
I responded:<\/p>\n
To use different styles with the macro, do this:<\/p>\n
1. Delete these two lines:<\/p>\n
For h = 1 To 9<\/p>\n
Next h<\/p>\n
2. Modify this line--<\/p>\n
myHeading$ = \"Heading\" + Str(h)<\/p>\n
--to something like this:<\/p>\n
myHeading$ = \"MyStyle\"<\/p>\n
Last week William T. Buckley wrote, \"This is not a huge issue, but it does come up once in a while, especially in limited-space conditions. How do I produce a circled-c 'circa' sign or symbol, not to be confused with a (c) copyright symbol?\"<\/p>\n
Clarke P Gerber responded, \"I've checked several specialist texts (including Chicago Manual of Style; NY Times Manual of Style and Usage) and cannot find any authority for using a circled 'c' as an abbreviation for circa. My own regional bible--The Cambridge Australian English Style Guide--says the following: 'When spelled out in full circa is often italicised. When abbreviated as c. or ca. it is now usually set in roman.'\"<\/p>\n
Thanks to Jim, Johanna, and Clarke for their messages.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
RESOURCES<\/p>\n
The Microsoft Office Assistance page has a wealth of resources for Word users, including tips, templates, demos, and quizzes:<\/p>\n