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

 

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

How To : Remove passwords / editing restrictions on MS Word and Excel Files | Euclid Networks

Have you ever come across a word or excel document that was ‘password protected’ – where certain parts of the document you were unable to edit? Frequently these are used in business settings, and with good reason – to protect formulas, proprietary information, sections of contracts, et cetera. But, sometimes you need to edit a restricted document, and your colleague is not at their computer or out to lunch, on vacation, or otherwise missing in action. Not to worry, we’ll show you how to remove the password from a restricted Word or Excel document. All you’ll need is MS Office 2007/2010/2013, the free software 7-Zip (which we recommend everyone use for archive management!), and a bit of technical support know-how from your local IT pro. 1. Ensure your file is in the latest .docX or .xlsX format. If your file is in an earlier office format, do a ‘Save As’, select ‘docx’ as the format type, and make sure you leave the ‘maintain compatibilty’ box empty. We want the latest file format. 2.

Source: How To : Remove passwords / editing restrictions on MS Word and Excel Files | Euclid Networks