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

The practical impact of not upgrading older phones to Windows Phone 8

Too true, too true…

Hal's (Im)Perfect Vision

I’m going to leave all (well, most) of the emotion about the lack of upgrades for older phones to Windows Phone 8 on the side and just address the practical impact.  I’m not talking about the potential negative short-term impact on Windows Phone sales, but rather the practical impact on owners of Windows Phone 7.x devices.

Let’s start with enthusiasts, perhaps the audience that is most pissed off about the lack of a Windows Phone 8 upgrade for existing devices.  I put myself in this category, and once I calmed down (and I’ve had almost two months to do so since it became apparent there weren’t going to be upgrades for existing devices), I realized that Microsoft was probably making the right call in assuming enthusiasts would end up ok with their decision.  Why?  You’re telling me that you wouldn’t flush your new Lumia 900 down the toilet right now…

View original post 1,089 more words