Word 2010 VBA: Set Track Changes to show only Vertical Bars

Sub Review_TrackChanges_BarsOnly()
'This VBA script will set Word 2010 track-changes to show only vertical black bars in the left margin

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

End Sub

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 )

Google+ photo

You are commenting using your Google+ 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 )


Connecting to %s