Lifesavers...

[alexpgp]

No, not the candy... Word macros!

To wit:

Sub RevToggleHidden()
'
' RevToggleHidden Macro
'
  With Options
    If (.DeletedTextMark = wdDeletedTextMarkHidden) Then
      .DeletedTextMark = wdDeletedTextMarkStrikeThrough
    Else
      .DeletedTextMark = wdDeletedTextMarkHidden
    End If
  End With
End Sub

---

Sub RevRejectHighlighted()
'
' RevRejectHighlighted Macro
'
  Selection.Range.Revisions.RejectAll
End Sub

---

Sub RevToggle()
'
' RevToggle Macro
'
  With ActiveDocument
    If (.TrackRevisions = True) Then
      .TrackRevisions = False
    Else
      .TrackRevisions = True
    End If
    .ShowRevisions = True
  End With
End Sub

By assigning these macros to my keyboard, life with revision mode (something ever more in demand in the translation racket) is ever so much easier!

Gotta have 'em!

Cheers...

Comments

Saaaaay!

[astroprisoner.livejournal.com]

These look useful. My source documentation undergoes nearly countless rounds of revision, these can be a help. Thanks for posting!