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
Advertisements