Last week's newsletter provided a style sheet that editors can use to keep track of style decisions while editing in Microsoft Word. If you didn't get that style sheet, you can download it here:<\/p>\n
http:\/\/www.editorium.com\/ftp\/stylesheet.zip<\/p>\n
Hilary Powers was kind enough to provide her StyleThat macro in last week's newsletter, and this week I've adapted that macro to work with the editorial style sheet. If you select some text in a document you're editing and then run this macro, it will switch to your editorial style sheet and paste the text under the alphabetical heading where it belongs: ABCD, EFGH, and so on. See last week's newsletter for more information:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1716659834<\/p>\n
And now, here's the macro:<\/p>\n
'THE MACRO STARTS HERE\nSub StyleThat()\n'Macro adapted by Hilary Powers 1\/30\/04; updated 4\/6\/04\n'Adapted by Jack M. Lyon for use with editorial style sheet\nIf Selection.Type = wdSelectionIP Then 'No selection\nGoTo HedBack\nElse\nFirstChar = Asc(Selection.Characters.First)\nIf FirstChar > 64 And FirstChar < 69 Then MySearch = \"ABCD^p\"\nIf FirstChar > 68 And FirstChar < 73 Then MySearch = \"EFGH^p\"\nIf FirstChar > 72 And FirstChar < 77 Then MySearch = \"IJKL^p\"\nIf FirstChar > 76 And FirstChar < 81 Then MySearch = \"MNOP^p\"\nIf FirstChar > 80 And FirstChar < 85 Then MySearch = \"QRST^p\"\nIf FirstChar > 84 And FirstChar < 91 Then MySearch = \"UVWXYZ^p\"\nIf FirstChar > 96 And FirstChar < 101 Then MySearch = \"ABCD^p\"\nIf FirstChar > 100 And FirstChar < 105 Then MySearch = \"EFGH^p\"\nIf FirstChar > 104 And FirstChar < 109 Then MySearch = \"IJKL^p\"\nIf FirstChar > 108 And FirstChar < 113 Then MySearch = \"MNOP^p\"\nIf FirstChar > 112 And FirstChar < 117 Then MySearch = \"QRST^p\"\nIf FirstChar > 116 And FirstChar < 123 Then MySearch = \"UVWXYZ^p\"\nIf FirstChar > 90 And FirstChar < 97 Then MySearch = \"Comments:^p\"\nIf FirstChar < 65 Or FirstChar > 122 Then MySearch = \"Comments:^p\"\nSelection.Copy\nWordBasic.NextWindow\nWordBasic.StartOfDocument\nSelection.Find.ClearFormatting\nWith Selection.Find\n.Text = MySearch\n.Forward = True\n.Wrap = wdFindStop\n.Format = False\n.MatchCase = True\n.MatchWholeWord = False\n.MatchAllWordForms = False\n.MatchSoundsLike = False\n.MatchWildcards = False\nEnd With\nSelection.Find.Execute\nSelection.MoveRight\nSelection.Paste\nSelection.TypeParagraph\nGoTo Final\nEnd If\nHedBack:\nWordBasic.NextWindow\nSelection.MoveRight Unit:=wdCharacter, Count:=1\nFinal:\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
If you don't know how to use such macros, you can find out here.<\/a><\/p>\nAnd you can learn how to assign them to a hot key here:<\/p>\n
http:\/\/www.topica.com\/lists\/editorium\/read\/message.html?mid=1713088939<\/p>\n
Note that you don't have to use the macro with *my* style sheet. It will work with any document in which you've included the following headings, each followed by a carriage return:<\/p>\n
ABCD<\/p>\n
EFGH<\/p>\n
IJKL<\/p>\n
MNOP<\/p>\n
QRST<\/p>\n
UVWXYZ<\/p>\n
Comments:<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
Last week, expert word whacker Hilary Powers sent her StyleThat macro, which I proceeded to gum up. The problem was, it didn't want to work correctly in Word 2000; possibly some of the commands are specific to Word 2003. At any rate, here is Hilary's macro in its pristine state, and many thanks to her for providing it.<\/p>\n
Hilary wrote, \"The macro relies on having two [and only two] files open at a time. The truly charming thing is that you can use one hot key for both chores: putting something on the style sheet and also priming the style sheet for its next use and returning to the main document.<\/p>\n
'THE MACRO STARTS HERE\nSub StyleThat()\n' Macro adapted by Hilary Powers 1\/30\/04; updated 4\/6\/04\nIf Selection.Type = wdSelectionIP Then\nGoTo HedBack\nElse\nSelection.Copy\nWordBasic.NextWindow\nSelection.PasteAndFormat (wdPasteDefault)\nGoTo Final\nEnd If\nHedBack:\nSelection.TypeParagraph\nWordBasic.NextWindow\nSelection.MoveRight Unit:=wdCharacter, Count:=1\nFinal:\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n