Properties of Revision of Microsoft Word 2010

Pocket

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.

Revision

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
Pocket

投稿者: admin

趣味:写真撮影とデータベース. カメラ:TOYO FIELD, Hasselblad 500C/M, Leica M6. SQL Server 2008 R2, MySQL, Microsoft Access.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です