The August 18 issue of Editorium Update featured a macro to delete styles that exist in a Word document but are not used in that document. While I was writing that macro, I also wrote a couple of others that I thought you might find useful.<\/p>\n
The first macro, ListCustomStyles, lists (at the end of the document) any custom styles in that document. If you need to know what weird styles your client is using, this macro will tell you what they are.<\/p>\n
The second macro, ListStylesInUse, lists (at the end of the document) any style being used in that document.<\/p>\n
If you don't know how to use macros like these, you can learn how here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1706922855<\/p>\n
And now, here are the macros. Enjoy!<\/p>\n
\nSub ListCustomStyles()\nFor Each sty In ActiveDocument.Styles\nIf sty.BuiltIn = False Then\nSelection.EndKey Unit:=wdStory\nSelection.InsertAfter Text:=sty.NameLocal\nSelection.InsertParagraphAfter\nEnd If\nNext sty\nEnd Sub\nSub ListStylesInUse()\nFor Each sty In ActiveDocument.Styles\nIf sty.InUse = True Then\nSelection.HomeKey Unit:=wdStory\nSelection.Find.ClearFormatting\nSelection.Find.Style = ActiveDocument.Styles(sty)\nWith Selection.Find\n.Text = \"\"\n.Replacement.Text = \"\"\n.Forward = True\n.Wrap = wdFindStop\n.Format = True\n.MatchCase = False\n.MatchWholeWord = False\n.MatchWildcards = False\n.MatchSoundsLike = False\n.MatchAllWordForms = False\nEnd With\nSelection.Find.Execute\nIf Selection.Find.Found = True Then\nSelection.EndKey Unit:=wdStory\nSelection.InsertAfter Text:=sty.NameLocal\nSelection.InsertParagraphAfter\nEnd If\nEnd If\nNext sty\nEnd Sub\n<\/pre>\n<\/span><\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
In the August 11 issue, Francelia Sevin wrote:<\/p>\n
\"On my Mac in Word 2001, toggling the track changes on\/off doesn't work. I still cannot copy and paste text and include the tracked changes. I have upgraded with the latest patches for 2001 and that hasn't made any difference.\"<\/p>\n
I asked for help with this, and Hilary Powers responded:<\/p>\n
That sounds like the PC Word 97 tracking-copy bug, alive and well in Mac Word 2001. If so, the PC workaround--bookmarking the material and inserting it in its new spot (with tracked changes turned off in the receiving document)--should work just fine. To move something in the same document, save the bookmarked file under a different name, then reopen the active file and turn off tracking, insert the bookmarked passage from the copy, and delete it from its original location. Then turn the tracking on again, and you're back in business.<\/p>\n
--------------------------------------<\/p>\n
Karen Bojda responded to the same question:<\/p>\n
Well, there's the workaround I learned about on CE-L, but for some reason I think you already know about this one \ud83d\ude09<\/p>\n
https:\/\/listserv.indiana.edu\/cgi-bin\/wa-iub.exe?A2=ind0208E&L=copyediting-l&P=R613<\/p>\n
\"This is a known 'issue' (bug) in Word 97\/98. It's been fixed in Word 2000 and higher. A workaround is to insert the text (Insert > File) into the new document rather than paste it. If you don't want to insert the whole doc, you can bookmark just the part you need and then enter the name of the bookmark into the 'Range' box of the Insert dialog.\"<\/p>\n
I can confirm that this works in Word 98 on the Mac. You have to save a copy of the file under a different name, since Word won't let you insert a file (or even a bookmarked part of a file) into itself. It might be a cumbersome workaround, but I've used it and been grateful to know about it.<\/p>\n
--------------------------------------<\/p>\n
A more detailed explanation of how to do this is provided in the March 24 issue of Editorium Update:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1716395972<\/p>\n
Many thanks to Hilary and Karen.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
RESOURCES<\/p>\n
Copernic Desktop Search is a powerful (and free!) file indexing and search engine for Windows computers. The website says:<\/p>\n
\"Easily search your entire hard drive in less than a second to pinpoint the right file, e-mail, music or pictures.<\/p>\n
\"CDS brings the power of a sophisticated, yet easy-to-use search engine right to your PC and allows you instantly to search files, e-mails, and email attachments stored anywhere on your PC hard drive. It executes sub-second searching of Microsoft Word, Excel, and PowerPoint files, Acrobat PDFs, and all popular music, picture and video formats. CDS also searches your browser history, favorites, and contacts.\"<\/p>\n
http:\/\/www.copernic.com\/index.html<\/p>\n