Lifesavers...
Nov. 29th, 2005 06:57 pmNo, not the candy... Word macros!
To wit:
Gotta have 'em!
Cheers...
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 SubBy 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...