How to highlight revisions?

[Nomey]

Hi, can anyone explain why this doesn't work

Sub MarkRevisions()
For Each MyRev In ActiveDocument.Range.Revisions
MyRev.highlightcolor = wdRed
Next MyRev
End Sub

and how I can mark all revisions in the active document (in Word 2002)?

Cheers,
Nomey

 

[Jay Freedman]

First, declare the data type of MyRev so it doesn't default to being a
Variant:

Dim MyRev As Revision

Then (as you can find in the Help topic about the Revision object) MyRev has
no "highlightcolor" property, but there is a Range property, and a Range has
a HighlightColorIndex property, so you can change your line to

MyRev.Range.HighlightColorIndex = wdRed

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Nomey]

Brilliant, Jay. Thanks! I've got it working now.

S. Nomey