Back in January 2003 I published an article called \"WordPerfect Weirdness,\" which featured a macro for converting \"special\" characters (dashes, quotation marks, and the like) in a file imported from WordPerfect to Word. You can read the article here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1711839353<\/p>\n
Unfortunately, the macro isn't reliable with more recent versions of Word, and I needed an updated version (some of those authors are still using WordPerfect). If you need one too, here it is (for PC or Macintosh; yes, it still has some WordBasic in it):<\/p>\n
'THE MACRO STARTS HERE\nSub FixWPWeirdness()\n' Courtesy of The Editorium (www.editorium.com)\nDim a\nDim i\nDim FalseChar$\nDim TrueChar$\nDim ThisChar\nSelection.HomeKey Unit:=wdStory\nSelection.Find.ClearFormatting\nSelection.Find.Replacement.ClearFormatting\n'Check for platform\na = InStr(WordBasic.[AppInfo$](1), \"Macintosh\")\nFor i = 1 To 6\n'Set find and replace variables\nSelect Case i\nCase 1\nFalseChar$ = \"C\"\nIf a Then\nTrueChar$ = Chr(209)\nElse\nTrueChar$ = Chr(151)\nEnd If\nCase 2\nFalseChar$ = \"B\"\nIf a Then\nTrueChar$ = Chr(208)\nElse\nTrueChar$ = Chr(150)\nEnd If\nCase 3\nFalseChar$ = \"A\"\nIf a Then\nTrueChar$ = Chr(210)\nElse\nTrueChar$ = Chr(147)\nEnd If\nCase 4\nFalseChar$ = \"@\"\nIf a Then\nTrueChar$ = Chr(211)\nElse\nTrueChar$ = Chr(148)\nEnd If\nCase 5\nFalseChar$ = \">\"\nIf a Then\nTrueChar$ = Chr(212)\nElse\nTrueChar$ = Chr(145)\nEnd If\nCase 6\nFalseChar$ = \"=\"\nIf a Then\nTrueChar$ = Chr(213)\nElse\nTrueChar$ = Chr(146)\nEnd If\nCase Else\nEnd Select\n'Find and replace characters\nWith Selection.Find\n.Text = FalseChar$\n.Forward = True\n.Wrap = wdFindContinue\n.Format = False\n.MatchCase = True\n.MatchWholeWord = False\n.MatchWildcards = False\n.MatchSoundsLike = False\n.MatchAllWordForms = False\nEnd With\nSelection.Find.Execute\nWhile WordBasic.EditFindFound()\nThisChar = Asc(WordBasic.[Selection$]())\nIf ThisChar = 40 Then\nWordBasic.EditClear\nWordBasic.Insert TrueChar$\nEnd If\nSelection.Find.Execute\nWend\nNext i\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
For ease of use, you might want to attach the macro to a keyboard shortcut, as explained here:<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1713088939<\/p>\n<\/p>\n
_________________________________________<\/p>\n
READERS WRITE<\/p>\n
The newsletter for February 9 featured an article called \"Macros for Intuitively Reviewing Tracked Revisions\":<\/p>\n
http:\/\/lists.topica.com\/lists\/editorium\/read\/message.html?mid=1719923701<\/p>\n
After reading the article, Hilary Powers wrote:<\/p>\n
Regarding your tracking-review macros: I think they'd drive me crazy. Maybe I've been doing this too long, but my thought process runs purely to \"keep this change\" and \"don't keep this change\" without reference to whether the underlying text will thereby be restored or removed.<\/p>\n
This probably works for me because I never, ever review each and every revision and decide upon its fate individually.<\/p>\n
When I go through an edited manuscript after the author has indicated what should happen to it, I first move from one of the author's comments or adjustments to the next, eyeballing for the author's tracking color. In each case, I fix that part of the manuscript so it does what the author wants (which may or may not be precisely what the author asked for). In the process, I try to delete all the queries I've put into the text.<\/p>\n
Then I simply approve all the changes remaining in the manuscript, holus bolus--after which I have a whole array of very quick scans to make sure that no queries escaped and nothing else bad happened as a result.<\/p>\n
For me, that's intuitive.<\/p>\n
Many thanks to Hilary.<\/p>\n<\/p>\n
_________________________________________<\/p>\n
RESOURCES<\/p>\n
The U.S. Department of Labor Bureau offers interesting occupational and salary information for writers and editors:<\/p>\n