It’s important for research members who had posted papers to compare between first edition and final version of them. I had investigated properties of revision in Microsoft Word 2010 VBA.
Option Explicit
Sub Revision()
Dim myDoc As Document
Set myDoc = ActiveDocument
With myDoc
.TrackRevisions = True
.TrackMoves = True
.TrackFormatting = True
End With
With Options
.InsertedTextMark = wdInsertedTextMarkBold
.InsertedTextMark = wdInsertedTextMarkColorOnly
.InsertedTextMark = wdInsertedTextMarkDoubleStrikeThrough
.InsertedTextMark = wdInsertedTextMarkDoubleUnderline
.InsertedTextMark = wdInsertedTextMarkItalic
.InsertedTextMark = wdInsertedTextMarkNone
.InsertedTextMark = wdInsertedTextMarkStrikeThrough
.InsertedTextMark = wdInsertedTextMarkUnderline
.InsertedTextColor = wdAuto
.InsertedTextColor = wdBlack
.InsertedTextColor = wdBlue
.InsertedTextColor = wdBrightGreen
.InsertedTextColor = wdByAuthor
.InsertedTextColor = wdDarkBlue
.InsertedTextColor = wdDarkRed
.InsertedTextColor = wdDarkYellow
.InsertedTextColor = wdGray25
.InsertedTextColor = wdGray50
.InsertedTextColor = wdGreen
.InsertedTextColor = wdNoHighlight
.InsertedTextColor = wdPink
.InsertedTextColor = wdRed
.InsertedTextColor = wdTeal
.InsertedTextColor = wdTurquoise
.InsertedTextColor = wdViolet
.InsertedTextColor = wdWhite
.InsertedTextColor = wdYellow
.DeletedTextMark = wdDeletedTextMarkBold
.DeletedTextMark = wdDeletedTextMarkCaret
.DeletedTextMark = wdDeletedTextMarkColorOnly
.DeletedTextMark = wdDeletedTextMarkDoubleStrikeThrough
.DeletedTextMark = wdDeletedTextMarkDoubleUnderline
.DeletedTextMark = wdDeletedTextMarkHidden
.DeletedTextMark = wdDeletedTextMarkItalic
.DeletedTextMark = wdDeletedTextMarkNone
.DeletedTextMark = wdDeletedTextMarkPound
.DeletedTextMark = wdDeletedTextMarkStrikeThrough
.DeletedTextMark = wdDeletedTextMarkUnderline
.DeletedTextColor = wdAuto
.DeletedTextColor = wdBlack
.DeletedTextColor = wdBlue
.DeletedTextColor = wdBrightGreen
.DeletedTextColor = wdByAuthor
.DeletedTextColor = wdDarkBlue
.DeletedTextColor = wdDarkRed
.DeletedTextColor = wdDarkYellow
.DeletedTextColor = wdGray25
.DeletedTextColor = wdGray50
.DeletedTextColor = wdGreen
.DeletedTextColor = wdNoHighlight
.DeletedTextColor = wdPink
.DeletedTextColor = wdRed
.DeletedTextColor = wdTeal
.DeletedTextColor = wdTurquoise
.DeletedTextColor = wdViolet
.DeletedTextColor = wdWhite
.DeletedTextColor = wdYellow
.RevisedLinesMark = wdRevisedLinesMarkLeftBorder
.RevisedLinesMark = wdRevisedLinesMarkNone
.RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
.RevisedLinesMark = wdRevisedLinesMarkRightBorder
.RevisedLinesColor = wdAuto
.RevisedLinesColor = wdBlack
.RevisedLinesColor = wdBlue
.RevisedLinesColor = wdBrightGreen
.RevisedLinesColor = wdByAuthor
.RevisedLinesColor = wdDarkBlue
.RevisedLinesColor = wdDarkRed
.RevisedLinesColor = wdDarkYellow
.RevisedLinesColor = wdGray25
.RevisedLinesColor = wdGray50
.RevisedLinesColor = wdGreen
.RevisedLinesColor = wdNoHighlight
.RevisedLinesColor = wdPink
.RevisedLinesColor = wdRed
.RevisedLinesColor = wdTeal
.RevisedLinesColor = wdTurquoise
.RevisedLinesColor = wdViolet
.RevisedLinesColor = wdWhite
.RevisedLinesColor = wdYellow
.CommentsColor = wdAuto
.CommentsColor = wdBlack
.CommentsColor = wdBlue
.CommentsColor = wdBrightGreen
.CommentsColor = wdByAuthor
.CommentsColor = wdDarkBlue
.CommentsColor = wdDarkRed
.CommentsColor = wdDarkYellow
.CommentsColor = wdGray25
.CommentsColor = wdGray50
.CommentsColor = wdGreen
.CommentsColor = wdNoHighlight
.CommentsColor = wdPink
.CommentsColor = wdRed
.CommentsColor = wdTeal
.CommentsColor = wdTurquoise
.CommentsColor = wdViolet
.CommentsColor = wdWhite
.CommentsColor = wdYellow
.MoveFromTextMark = wdMoveFromTextMarkBold
.MoveFromTextMark = wdMoveFromTextMarkCaret
.MoveFromTextMark = wdMoveFromTextMarkColorOnly
.MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough
.MoveFromTextMark = wdMoveFromTextMarkDoubleUnderline
.MoveFromTextMark = wdMoveFromTextMarkHidden
.MoveFromTextMark = wdMoveFromTextMarkItalic
.MoveFromTextMark = wdMoveFromTextMarkNone
.MoveFromTextMark = wdMoveFromTextMarkPound
.MoveFromTextMark = wdMoveFromTextMarkStrikeThrough
.MoveFromTextMark = wdMoveFromTextMarkUnderline
.MoveFromTextColor = wdAuto
.MoveFromTextColor = wdBlack
.MoveFromTextColor = wdBlue
.MoveFromTextColor = wdBrightGreen
.MoveFromTextColor = wdByAuthor
.MoveFromTextColor = wdDarkBlue
.MoveFromTextColor = wdDarkRed
.MoveFromTextColor = wdDarkYellow
.MoveFromTextColor = wdGray25
.MoveFromTextColor = wdGray50
.MoveFromTextColor = wdGreen
.MoveFromTextColor = wdNoHighlight
.MoveFromTextColor = wdPink
.MoveFromTextColor = wdRed
.MoveFromTextColor = wdTeal
.MoveFromTextColor = wdTurquoise
.MoveFromTextColor = wdViolet
.MoveFromTextColor = wdWhite
.MoveFromTextColor = wdYellow
.MoveToTextMark = wdMoveToTextMarkBold
.MoveToTextMark = wdMoveToTextMarkColorOnly
.MoveToTextMark = wdMoveToTextMarkDoubleStrikeThrough
.MoveToTextMark = wdMoveToTextMarkDoubleUnderline
.MoveToTextMark = wdMoveToTextMarkItalic
.MoveToTextMark = wdMoveToTextMarkNone
.MoveToTextMark = wdMoveToTextMarkStrikeThrough
.MoveToTextMark = wdMoveToTextMarkUnderline
.MoveToTextColor = wdAuto
.MoveToTextColor = wdBlack
.MoveToTextColor = wdBlue
.MoveToTextColor = wdBrightGreen
.MoveToTextColor = wdByAuthor
.MoveToTextColor = wdDarkBlue
.MoveToTextColor = wdDarkRed
.MoveToTextColor = wdDarkYellow
.MoveToTextColor = wdGray25
.MoveToTextColor = wdGray50
.MoveToTextColor = wdGreen
.MoveToTextColor = wdNoHighlight
.MoveToTextColor = wdPink
.MoveToTextColor = wdRed
.MoveToTextColor = wdTeal
.MoveToTextColor = wdTurquoise
.MoveToTextColor = wdViolet
.MoveToTextColor = wdWhite
.MoveToTextColor = wdYellow
.InsertedCellColor = wdCellColorByAuthor
.InsertedCellColor = wdCellColorLightBlue
.InsertedCellColor = wdCellColorLightGray
.InsertedCellColor = wdCellColorLightGreen
.InsertedCellColor = wdCellColorLightOrange
.InsertedCellColor = wdCellColorLightPurple
.InsertedCellColor = wdCellColorLightYellow
.InsertedCellColor = wdCellColorNoHighlight
.InsertedCellColor = wdCellColorPink
.MergedCellColor = wdCellColorByAuthor
.MergedCellColor = wdCellColorLightBlue
.MergedCellColor = wdCellColorLightGray
.MergedCellColor = wdCellColorLightGreen
.MergedCellColor = wdCellColorLightOrange
.MergedCellColor = wdCellColorLightPurple
.MergedCellColor = wdCellColorLightYellow
.MergedCellColor = wdCellColorNoHighlight
.MergedCellColor = wdCellColorPink
.DeletedCellColor = wdCellColorByAuthor
.DeletedCellColor = wdCellColorLightBlue
.DeletedCellColor = wdCellColorLightGray
.DeletedCellColor = wdCellColorLightGreen
.DeletedCellColor = wdCellColorLightOrange
.DeletedCellColor = wdCellColorLightPurple
.DeletedCellColor = wdCellColorLightYellow
.DeletedCellColor = wdCellColorNoHighlight
.DeletedCellColor = wdCellColorPink
.SplitCellColor = wdCellColorByAuthor
.SplitCellColor = wdCellColorLightBlue
.SplitCellColor = wdCellColorLightGray
.SplitCellColor = wdCellColorLightGreen
.SplitCellColor = wdCellColorLightOrange
.SplitCellColor = wdCellColorLightPurple
.SplitCellColor = wdCellColorLightYellow
.SplitCellColor = wdCellColorNoHighlight
.SplitCellColor = wdCellColorPink
.RevisedPropertiesMark = wdRevisedPropertiesMarkBold
.RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly
.RevisedPropertiesMark = wdRevisedPropertiesMarkDoubleStrikeThrough
.RevisedPropertiesMark = wdRevisedPropertiesMarkDoubleUnderline
.RevisedPropertiesMark = wdRevisedPropertiesMarkItalic
.RevisedPropertiesMark = wdRevisedPropertiesMarkNone
.RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough
.RevisedPropertiesMark = wdRevisedPropertiesMarkUnderline
.RevisedPropertiesColor = wdAuto
.RevisedPropertiesColor = wdBlack
.RevisedPropertiesColor = wdBlue
.RevisedPropertiesColor = wdBrightGreen
.RevisedPropertiesColor = wdByAuthor
.RevisedPropertiesColor = wdDarkBlue
.RevisedPropertiesColor = wdDarkRed
.RevisedPropertiesColor = wdDarkYellow
.RevisedPropertiesColor = wdGray25
.RevisedPropertiesColor = wdGray50
.RevisedPropertiesColor = wdGreen
.RevisedPropertiesColor = wdNoHighlight
.RevisedPropertiesColor = wdPink
.RevisedPropertiesColor = wdRed
.RevisedPropertiesColor = wdTeal
.RevisedPropertiesColor = wdTurquoise
.RevisedPropertiesColor = wdViolet
.RevisedPropertiesColor = wdWhite
.RevisedPropertiesColor = wdYellow
.RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationAuto
.RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationForceLandscape
.RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
End With
With ActiveWindow.View
.RevisionsMode = wdBalloonRevisions
.RevisionsMode = wdInLineRevisions
.RevisionsMode = wdMixedRevisions
.RevisionsBalloonShowConnectingLines = False
.RevisionsBalloonShowConnectingLines = True
.RevisionsBalloonSide = wdLeftMargin
.RevisionsBalloonSide = wdRightMargin
.RevisionsBalloonWidthType = wdBalloonWidthPoints
.RevisionsBalloonWidthType = wdBalloonWidthPercent
.RevisionsBalloonWidth = MillimetersToPoints(76.2)
.RevisionsBalloonWidth = 36
End With
End Sub
