Working on an index this week, I needed to ensure that pagination of the document I was indexing matched another document in which pagination had already been set. Because of the complexity of the material, I had to do this manually and visually, paging down in document 1, switching to document 2, paging down again, and then switching back to document 1. What a pain! It wasn't long before I found myself writing a macro to move down a page in both documents at once. Here it is, short but sweet:<\/p>\n
'THE MACRO STARTS HERE\nSub PageDownInSynch()\nDocuments(2).Activate\nSelection.GoTo What:=wdGoToPage\nDocuments(1).Activate\nSelection.GoTo What:=wdGoToPage\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
For the macro to work, you must have two documents open in Word at the same time, and the process works best if you've sized and arranged the two documents vertically side by side. (Our Editor's ToolKit program includes an \"Arrange Documents\" macro that will do that for you instantly and automatically.)<\/p>\n
For best results, assign the macro to a keyboard combination so you can quickly run it over and over with the touch of a key. You can learn how to do that here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1713088939<\/p>\n
Now you can page through your documents, adjusting pagination as needed with manual page breaks (CTRL + ENTER). You'll probably find other uses for the macro as well. Enjoy!<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
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? I've looked at several grids and character maps, and don't find anything like what I need.\"<\/p>\n
I was unable to find such a character, even in Unicode fonts. Do you, gentle reader, have an answer?<\/p>\n
Preston Earle wrote, \"Thanks for the improved Title Case macro. Is there a way to modify the macro such that it ignores a list of all-caps words like USA, NASA, MS (as in MS Word), and, perhaps, state abbreviations?\"<\/p>\n
I've now modified the macro to do this. Here's the new version:<\/p>\n
\n'MACRO BEGINS HERE\nSub TitleCaseHeadings()\n'Created by Jack M. Lyon\n'\nFor h = 1 To 9\nSelection.HomeKey Unit:=wdStory\nSelection.Find.ClearFormatting\nmyHeading$ = \"Heading\" + Str(h)\nSelection.Find.Style = ActiveDocument.Styles(myHeading$)\nWith Selection.Find\n.Text = \"\"\n.Replacement.Text = \"\"\n.Forward = True\n.Wrap = wdStop\n.Format = True\n.MatchCase = False\n.MatchWholeWord = False\n.MatchWildcards = False\n.MatchSoundsLike = False\n.MatchAllWordForms = False\nEnd With\nSelection.Find.Execute\nWhile Selection.Find.Found = True\nSelection.Range.Case = wdTitleWord\nFor Each wrd In Selection.Range.Words\nSelect Case Trim(wrd)\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 End Select\nNext wrd\nwrdCount = Selection.Range.Words.Count\nSelection.Range.Words(1).Case = wdTitleWord\nSelection.Range.Words(wrdCount - 1).Case = wdTitleWord\nstrLength = Selection.Range.Characters.Count\nFor i = 1 To strLength\nIf Selection.Range.Characters(i) = \":\" Then\nSelection.Range.Characters(i + 2).Case = wdTitleWord\nEnd If\nNext i\nSelection.Find.Execute\nWend\nNext h\nMsgBox \"Finished!\", , \"Title Case Headings\"\nEnd Sub\n'MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
The line that makes the difference is this one:<\/p>\n
\nCase \"Usa\", \"Nasa\", \"Usda\", \"Ibm\", \"Nato\"\n<\/pre>\n<\/span><\/p>\n
Feel free to modify that line to suit your needs. The items I've included are just examples. Notice, though, that for the macro to work, you must type your items not in all caps (USA) but in title case (Usa). That's because the macro has already put the whole *line* in title case, so you're now specifying words in title case that you want to be in all caps.<\/p>\n
Many thanks for the help, questions, and suggestions.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
RESOURCES<\/p>\n
SoftSnow offers some very interesting software that may come in handy if you're involved in electronic publishing or converting documents to HTML. Book Proofer and HTML Book Fixer look especially interesting:<\/p>\n