Word 2010 VBA: Set Track Changes to their default settings

Sub Review_TrackChanges_Normal()
'This VBA script will set Word 2010 track-changes to the defaults

    With Options
        .InsertedTextMark = wdInsertedTextMarkUnderline
        .InsertedTextColor = wdBlue
        .DeletedTextMark = wdDeletedTextMarkStrikeThrough
        .DeletedTextColor = wdRed
        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
        .RevisedPropertiesColor = wdByAuthor
        .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
        .RevisedLinesColor = wdAuto
        .CommentsColor = wdByAuthor
        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
        .MoveFromTextMark = wdDeletedTextMarkStrikeThrough
        .MoveFromTextColor = wdGreen
        .MoveToTextMark = wdInsertedTextMarkUnderline
        .MoveToTextColor = wdGreen
        .InsertedCellColor = wdCellColorNoHighlight
        .MergedCellColor = wdCellColorLightYellow
        .DeletedCellColor = wdCellColorNoHighlight
        .SplitCellColor = wdCellColorLightOrange
    End With
    
    ActiveWindow.View.RevisionsMode = wdMixedRevisions
    
    With ActiveDocument
        .TrackMoves = True
        .TrackFormatting = False
    End With

End Sub

 

Advertisements

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s