Marking Revisions for Review in Wordperfect

This week one of the editors I work with needed to show tracked revisions to an author she's working with. The problem was, the author used WordPerfect, not Microsoft Word. We tried opening the marked-up Word document with WordPerfect, but no go. Additions were there, marked in red, but deletions had reverted to regular text. Saving the document in various formats and then opening in WordPerfect brought us no joy. What to do? Well, how about a macro that checks and formats each revision? If it's an insertion, color it blue and accept it; if it's a deletion, mark it with strikeout, color it red, and accept it. Then save the document in Rich Text Format (RTF). When it's opened in WordPerfect (or any other word processor that accepts RTF), all of the changes will be visible. Here's the macro, which I hope you'll find useful:


Sub FormatRevisions()
Dim ThisRevision As Revision
For Each ThisRevision In Selection.Range.Revisions
Application.Run MacroName:="ToolsRevisionMarksNext"
If ThisRevision.Type = wdRevisionInsert Then
With Selection.Font
.Color = wdColorBlue
End With
ThisRevision.Accept
GoTo Continue
End If
If ThisRevision.Type = wdRevisionDelete Then
With Selection.Font
.StrikeThrough = True
.Color = wdColorRed
End With
ThisRevision.Reject
GoTo Continue
End If
Continue:
Next ThisRevision
End Sub

If you don't know how to use such macros, you can learn how here:

http://lists.topica.com/lists/editorium/read/message.html?mid=1706922855

_________________________________________

READERS WRITE

If you were unable to run the style macros in the past few newsletters, you may find this message from Eric Fletcher helpful. I already knew about Eric's tip here, but I keep forgetting to implement it, in spite of Steve Hudson's efforts to educate me. Please accept my apologies. Eric wrote:

Your style listing macros came at a perfect time for me as I'd just received a large file full of oddball styles (actually, it was from a French version of Word so the style names were also all in French!).

However, I thought I'd pass along a tip about future macros. If users have the "Require variable declaration" option set (Tools | Options dialog in VBE), these macro won't run until they add the following line to declare the "sty" variable:

Dim sty As Variant

Defining variables is not entirely necessary but is recommended. If the option is set in VBE, it sets "Option Explicit" at the top of the macro editing window and forces all variables to be defined with Dim statements. I was tearing out what hair I have left trying to work out why some of my previously-working macros started displaying errors until I realized that it had happened after I'd followed someone's advice about setting the option.

----------------------------------------

Donna Payne wrote:

I have a variation of the list styles in use macro. This is from my company's latest book, Word 2003 for Law Firms.


Sub DisplayAllStylesInUseAtInsertionPoint()
Dim oStyle As Style
Dim oRange As Range
Set oRange = Selection.Range
oRange.Collapse wdCollapseStart
For Each oStyle In ActiveDocument.Styles
If oStyle.InUse Then
oRange.InsertAfter oStyle.NameLocal
''' Some Styles cannot be displayed
''' in particular contexts
On Error Resume Next
oRange.Style = oStyle.NameLocal
If Err.Number <> 0 Then
oRange.InsertAfter " (Style Not Displayed)"
End If
On Error GoTo 0
oRange.InsertParagraphAfter
oRange.Collapse wdCollapseEnd
End If
Next oStyle
End Sub

Many thanks to Eric and Donna.

_________________________________________

RESOURCES

After reading about Copernic Desktop Search (for PC) in last week's newsletter, JM, a Macintosh user, wrote:

For years [similar search capability] has been built into the operating system as part of Sherlock, the file finder. I use it almost every day. Doesn't search browser history, as far as I know. I'm on OS 9.2; assume this wonderful thing has survived the switch to OS X.

Romke Soldaat wrote:

"This mail is not entirely free of self-promotion, but if you're interested in new add-ins for Word, you may want to have a look on http://www.wordtoys.com. This package contains quite a few features that might interest editors and other linguistic professionals."

I checked out Romke's WordToys macro package, and it's chock-full of useful features. It's also free!

http://www.wordtoys.com

Many thanks to JM and Romke.

This entry was posted in Editing. Bookmark the permalink. Post a comment or leave a trackback: Trackback URL.

Post a Comment

You must be logged in to post a comment.

  • The Fine Print

    Thanks for reading Editorium Update (ISSN 1534-1283), published by:

    The EDITORIUM, LLC
    http://www.editorium.com

    Articles © on date of publication by the Editorium. All rights reserved. Editorium Update and Editorium are trademarks of the Editorium.

    You may forward copies of Editorium Update to others (but not charge for it) and print or store it for your personal use. Any other broadcast, publication, retransmission, copying, or storage, without written permission from the Editorium, is strictly prohibited. If you’re interested in reprinting one of our articles, please send an email message to editor@editorium.com

    Editorium Update is provided for informational purposes only and without a warranty of any kind, either express or implied, including but not limited to implied warranties of merchantability, fitness for a particular purpose, and freedom from infringement. The user (you) assumes the entire risk as to the accuracy and use of this document.

    The Editorium is not affiliated with Microsoft Corporation or any other entity.

    We do not sell, rent, or give our subscriber list to anyone. Period.

    If you’d like to subscribe, please enter your name and email address below. We publish the newsletter once a week, and on rare occasions we may send an important announcement. We never, ever send spam. Thank you for signing up!