In my other life I work at a publishing house, so quite often I compile and edit lists of book titles, authors, type specs--all kinds of things. (I just finished putting together a list of nearly 1,400 book titles for a giant electronic publishing project.) A typical list looks like this:<\/p>\n
To Kill a Mockingbird<\/p>\n
Jane Eyre<\/p>\n
Old Man and the Sea<\/p>\n
Great Gatsby<\/p>\n
Moby Dick<\/p>\n
And so on. (You'll notice that I removed the initial \"The\" from The Old Man and the Sea and The Great Gatsby so they'll sort properly. You may also want to do this with \"A\" and \"An\" if you're sorting lists of books.)<\/p>\n
BMW (before Microsoft Word) I used to sort such lists by hand. Now I sort them like this:<\/p>\n
1. In Microsoft Word, select the paragraphs making up the list to be sorted.<\/p>\n
2. Click the Table menu.<\/p>\n
3. Click \"Sort\" or \"Sort Text.\"<\/p>\n
4. Under \"Sort by,\" select \"Paragraphs.\"<\/p>\n
5. Under \"Type,\" select \"Text.\"<\/p>\n
6. Select \"Ascending.\"<\/p>\n
7. Click \"OK.\"<\/p>\n
Wow, that works great! But wait a minute. I've got Great Gatsby in here three times! And Moby Dick twice! I wonder how many other duplicates I've got. Isn't there a way to delete them automatically?<\/p>\n
In fact, there is. Just use this trusty macro, compliments of the Editorium:<\/p>\n
FOR MICROSOFT WORD 6 OR 7 (95):<\/p>\n
'THE MACRO STARTS HERE\nStartOfDocument\nParaDown 1, 1\nPara1$ = Selection$()\nCharRight 1\nWhile AtEndOfDocument() = 0\nParaDown 1, 1\nPara2$ = Selection$()\nIf Para1$ = Para2$ Then\nWW6_EditClear\nElse\nPara1$ = Para2$\nCharRight 1\nEndIf\nWend\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span>
\nFOR MICROSOFT WORD 8 (97 OR 98) OR 9 (2000):<\/p>\n
'THE MACRO STARTS HERE\nDim Para1$\nDim Para2$\nWordBasic.StartOfDocument\nWordBasic.ParaDown 1, 1\nPara1$ = WordBasic.[Selection$]()\nWordBasic.CharRight 1\nWhile WordBasic.AtEndOfDocument() = 0\nWordBasic.ParaDown 1, 1\nPara2$ = WordBasic.[Selection$]()\nIf Para1$ = Para2$ Then\nWordBasic.WW6_EditClear\nElse\nPara1$ = Para2$\nWordBasic.CharRight 1\nEnd If\nWend\n'THE MACRO ENDS HERE\n<\/pre>\n<\/span><\/p>\n
TO CREATE THE MACRO<\/p>\n
1. Copy the appropriate macro from this newsletter.<\/p>\n
2. Click the \"Tools\" menu at the top of your Word window.<\/p>\n
3. Click \"Macro.\"<\/p>\n
4. In Word 97, 98, or 2000, click \"Macros.\"<\/p>\n
5. Make sure \"Macros Available In\" shows \"Normal.dot.\"<\/p>\n
6. Type a name for the macro in the \"Macro Name\" box--\"DeleteDuplicates\" should do nicely.<\/p>\n
7. Click \"Create.\"<\/p>\n
8. Paste the macro at the current insertion point.<\/p>\n
9. In Word 6 or 7, click \"File,\" then \"Close,\" then \"Yes.\" In Word 97, 98, or 2000, click \"File,\" then \"Close and Return to Microsoft Word.\"<\/p>\n
TO RUN THE MACRO:<\/p>\n
1. *Back up your document* in case something doesn't work quite right.<\/p>\n
2. Click the \"Tools\" menu at the top of your Word window.<\/p>\n
3. Click \"Macro.\"<\/p>\n
4. In Word 97, 98, or 2000, click \"Macros.\"<\/p>\n
5. Make sure \"Macros Available In\" shows \"Normal.dot.\"<\/p>\n
6. Select the macro (probably \"DeleteDuplicates\") in the \"Macro Name\" box.<\/p>\n
7. Click \"Run.\"<\/p>\n
No more duplicates! (If you still see what seem to be duplicates, check them carefully. One of the pair may be spelled slightly differently or have an invisible space preceding the carriage return.)<\/p>\n
If you need other macros to make your life easier, you may be interested in our program add-ins at http:\/\/www.editorium.com. If you're editing, writing, or typesetting in Microsoft Word, they'll save you time. Couldn't you use more of it?<\/p><\/p>\n","protected":false},"excerpt":{"rendered":"In my other life I work at a publishing house, so quite often I compile and edit lists of book titles, authors, type specs–all kinds of things. (I just finished putting together a list of nearly 1,400 book titles for a giant electronic publishing project.) A typical list looks like this: To Kill a Mockingbird […]<\/p>\n<\/a>","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[3],"tags":[],"class_list":{"0":"post-28","1":"post","2":"type-post","3":"status-publish","4":"format-standard","6":"category-editing","7":"h-entry","8":"hentry"},"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack_shortlink":"https:\/\/wp.me\/p3gfno-s","_links":{"self":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/28","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/comments?post=28"}],"version-history":[{"count":3,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/28\/revisions"}],"predecessor-version":[{"id":792,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/posts\/28\/revisions\/792"}],"wp:attachment":[{"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/media?parent=28"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/categories?post=28"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/editorium.com\/archive\/wp-json\/wp\/v2\/tags?post=28"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}