In our last episode, I provided a macro to make a list of misspelled words found in a document. You'll find the macro here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1720027612<\/p>\n
So you've got your list; now how do you use it?<\/p>\n
The way *I* recently used it on a multivolume typesetting project was to automatically fix a bunch of archaic (along with just plain wrong) spellings. Here's what I did:<\/p>\n
1. Sorted the misspelled words alphabetically.<\/p>\n
2. Removed duplicates.<\/p>\n
3. Put each word beside itself, separated by a pipe symbol, so the lines looked like this:<\/p>\n
fulfil|fulfil<\/p>\n
fulness|fulness<\/p>\n
kanyon|kanyon<\/p>\n
4. Corrected the spelling of the words on the right side of the list:<\/p>\n
fulfil|fulfill<\/p>\n
fulness|fullness<\/p>\n
kanyon|canyon<\/p>\n
5. Used the list with my MegaReplacer program to automatically replace the misspelled words on the left with the correctly spelled words on the right--in all the chapters of all the volumes. Whew! More on MegaReplacer here:<\/p>\n
http:\/\/www.editorium.com\/14843.htm<\/p>\n
Of course, it would have been nice to have a macro that did steps 1 through 3 for me (sort misspelled words, remove duplicates, put each word beside itself). So I made one. And I'll share:<\/p>\n
'THE MACRO STARTS HERE\nSub MakeCorrectionList()\n'Define variables\nDim Para1$\nDim Para2$\nDim aPara\n'Sort words alphabetically\nSelection.WholeStory\nSelection.Sort\n'Delete duplicate words\nSelection.WholeStory\nFor Each aPara In ActiveDocument.Paragraphs\nPara2$ = aPara\nIf Para1$ = Para2$ Then\naPara.Range.Delete\nElse\nPara1$ = Para2$\nEnd If\nNext\n'Duplicate list side by side\n'with pipe symbol separating\nSelection.WholeStory\nSelection.ConvertToTable _\nSeparator:=wdSeparateByParagraphs\nSelection.Copy\nSelection.InsertColumnsRight\nSelection.Paste\nSelection.Tables(1).Select\nSelection.Rows.ConvertToText _\nSeparator:=\"|\", NestedTables:=True\n'Add code indicating Match\n'Case and Whole Word Only\nSelection.HomeKey Unit:=wdStory\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\nWith Selection.Find\n.Text = \"^p\"\n.Replacement.Text = \"+&^p\"\n.Forward = True\n.Wrap = wdFindContinue\n.Format = False\n.MatchCase = False\n.MatchWholeWord = False\n.MatchWildcards = False\n.MatchSoundsLike = False\n.MatchAllWordForms = False\nEnd With\nSelection.Find.Execute _\nReplace:=wdReplaceAll\nSelection.HomeKey Unit:=wdStory\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
If you don't know how to use such macros, you'll find instructions here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1706922855<\/p>\n
That last bit, \"Add code indicating Match Case and Whole Word Only,\" is for use by MegaReplacer, and it will add +& at the end of each entry. In addition, at the bottom of the list, you'll get one final carriage return preceded by +&. You should delete that line before using the list with MegaReplacer.<\/p>\n
You may find other uses for the macro as well--or at least pieces of it. For example, this part will delete duplicate paragraphs (i.e., single words on a line) in any list:<\/p>\n
'THE MACRO STARTS HERE\nSub DeleteDuplicates()\n'Delete duplicate words (i.e., paragraphs)\nDim Para1$\nDim Para2$\nDim aPara\nFor Each aPara In ActiveDocument.Paragraphs\nPara2$ = aPara\nIf Para1$ = Para2$ Then\naPara.Range.Delete\nElse\nPara1$ = Para2$\nEnd If\nNext\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
And the following part will create a two-column table with the list of words in each column. You can then use the table as the basis for an index concordance. More here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1716989880<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1714146574<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1717207977<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1717249352<\/p>\n
'THE MACRO STARTS HERE\n'Sub MakeConcordanceTable()\n'Duplicate list side by side in a table\nSelection.WholeStory\nSelection.ConvertToTable Separator:=wdSeparateByParagraphs\nSelection.Copy\nSelection.InsertColumnsRight\nSelection.Paste\nEnd Sub\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
Niquette Kelcher wrote:<\/p>\n
I have a wildcard question for you that I haven't been able to figure out. I'd like to supply the answer to my students, who have been trying to figure it out with me.<\/p>\n
If I have a manuscript with \"Titles in Quotations Like This\", how do I italicize the title AND get rid of the quotation marks at the same time? My incorrect approach is as follows -- it italicizes the text but doesn't get rid of the quotation marks. I feel I'm missing something obvious!<\/p>\n
Find: \"*\" (use wildcards)<\/p>\n
Replace: ^& (Ctrl + I)<\/p>\n
Your help would surely be appreciated!<\/p>\n
I responded:<\/p>\n
You'll need to put the asterisk inside parentheses so it functions as a \"group\":<\/p>\n
Find: \"(*)\" (use wildcards)<\/p>\n
Then use the \"Find What Expression\" code as the replacement for the text found by the group:<\/p>\n
Replace: 1 (Ctrl + I)<\/p>\n
More information here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1706365638<\/p>\n
--------------------------------<\/p>\n
Ed Millis wrote:<\/p>\n
I write\/edit technical report documents. I am not in charge of creating them; they are simply emailed to me or handed over on a CD, and I get to insert data and format to a fine finish. Either the document or the data can come in any format or mixture of styles, including web page and Excel file, and with or without automatic bullets, lists, and indents.<\/p>\n
So the first thing I do is reformat everything to a Normal style, no automatic anything, and set my tabs. Then, as I go through the document, I apply formatting or style to create headings and table or figure labels.<\/p>\n
The last thing I do with one of these reports (often up to 200 pages) is print out a low-resolution non-color copy so I can go over it with pen in hand to ensure all tables and figures are numbered correctly and correspond to their text mention, make sure every paragraph has the proper indent and reference (every (a) has a (b), and it's not (b) when it should be (2), and I didn't overlook any abbreviations.<\/p>\n
Has anything crossed the desk of the Editorium that might make dealing with those last items a bit easier?<\/p>\n
I responded:<\/p>\n
No. But it's an interesting question. I'll look into it.<\/p>\n
Not having been able to find an answer, I appeal to you, gentle reader. Do you have a solution for Ed?<\/p>\n
Many thanks to Niquette and Ed.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
RESOURCES<\/p>\n
Need an online style guide for easy reference? Try the Wikipedia Manual of Style:<\/p>\n
http:\/\/en.wikipedia.org\/wiki\/Wikipedia:Manual_of_Style<\/p>\n
Need something more thorough? Try the Guide to Grammar and Style, by Jack Lynch at Rutgers:<\/p>\n