{"id":3890,"date":"2013-10-03T16:05:55","date_gmt":"2013-10-03T07:05:55","guid":{"rendered":"http:\/\/fujiitoshiki.com\/improvesociety\/?p=3890"},"modified":"2013-10-03T15:22:25","modified_gmt":"2013-10-03T06:22:25","slug":"properties-of-revision-of-microsoft-word-2010","status":"publish","type":"post","link":"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3890","title":{"rendered":"Properties of Revision of Microsoft Word 2010"},"content":{"rendered":"<div class=\"theContentWrap-ccc\"><p>It&#8217;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. <\/p>\n<p><a href=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/d7c82a15531e55d41080dfb1d4ab419f.png\"><img loading=\"lazy\" decoding=\"async\" src=\"\/\/fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/d7c82a15531e55d41080dfb1d4ab419f-248x300.png\" alt=\"Revision\" width=\"248\" height=\"300\" class=\"alignnone size-medium wp-image-3882\" srcset=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/d7c82a15531e55d41080dfb1d4ab419f-248x300.png 248w, https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/d7c82a15531e55d41080dfb1d4ab419f-100x120.png 100w, https:\/\/www.fujiitoshiki.com\/improvesociety\/wp-content\/uploads\/d7c82a15531e55d41080dfb1d4ab419f.png 508w\" sizes=\"auto, (max-width: 248px) 85vw, 248px\" \/><\/a><\/p>\n<pre class=\"toolbar-overlay:true lang:vb decode:true\">Option Explicit\r\n\r\nSub Revision()\r\n    Dim myDoc   As Document\r\n    Set myDoc = ActiveDocument\r\n    With myDoc\r\n        .TrackRevisions = True\r\n        .TrackMoves = True\r\n        .TrackFormatting = True\r\n    End With\r\n    With Options\r\n        \r\n        .InsertedTextMark = wdInsertedTextMarkBold\r\n        .InsertedTextMark = wdInsertedTextMarkColorOnly\r\n        .InsertedTextMark = wdInsertedTextMarkDoubleStrikeThrough\r\n        .InsertedTextMark = wdInsertedTextMarkDoubleUnderline\r\n        .InsertedTextMark = wdInsertedTextMarkItalic\r\n        .InsertedTextMark = wdInsertedTextMarkNone\r\n        .InsertedTextMark = wdInsertedTextMarkStrikeThrough\r\n        .InsertedTextMark = wdInsertedTextMarkUnderline\r\n        \r\n        .InsertedTextColor = wdAuto\r\n        .InsertedTextColor = wdBlack\r\n        .InsertedTextColor = wdBlue\r\n        .InsertedTextColor = wdBrightGreen\r\n        .InsertedTextColor = wdByAuthor\r\n        .InsertedTextColor = wdDarkBlue\r\n        .InsertedTextColor = wdDarkRed\r\n        .InsertedTextColor = wdDarkYellow\r\n        .InsertedTextColor = wdGray25\r\n        .InsertedTextColor = wdGray50\r\n        .InsertedTextColor = wdGreen\r\n        .InsertedTextColor = wdNoHighlight\r\n        .InsertedTextColor = wdPink\r\n        .InsertedTextColor = wdRed\r\n        .InsertedTextColor = wdTeal\r\n        .InsertedTextColor = wdTurquoise\r\n        .InsertedTextColor = wdViolet\r\n        .InsertedTextColor = wdWhite\r\n        .InsertedTextColor = wdYellow\r\n        \r\n        .DeletedTextMark = wdDeletedTextMarkBold\r\n        .DeletedTextMark = wdDeletedTextMarkCaret\r\n        .DeletedTextMark = wdDeletedTextMarkColorOnly\r\n        .DeletedTextMark = wdDeletedTextMarkDoubleStrikeThrough\r\n        .DeletedTextMark = wdDeletedTextMarkDoubleUnderline\r\n        .DeletedTextMark = wdDeletedTextMarkHidden\r\n        .DeletedTextMark = wdDeletedTextMarkItalic\r\n        .DeletedTextMark = wdDeletedTextMarkNone\r\n        .DeletedTextMark = wdDeletedTextMarkPound\r\n        .DeletedTextMark = wdDeletedTextMarkStrikeThrough\r\n        .DeletedTextMark = wdDeletedTextMarkUnderline\r\n        \r\n        .DeletedTextColor = wdAuto\r\n        .DeletedTextColor = wdBlack\r\n        .DeletedTextColor = wdBlue\r\n        .DeletedTextColor = wdBrightGreen\r\n        .DeletedTextColor = wdByAuthor\r\n        .DeletedTextColor = wdDarkBlue\r\n        .DeletedTextColor = wdDarkRed\r\n        .DeletedTextColor = wdDarkYellow\r\n        .DeletedTextColor = wdGray25\r\n        .DeletedTextColor = wdGray50\r\n        .DeletedTextColor = wdGreen\r\n        .DeletedTextColor = wdNoHighlight\r\n        .DeletedTextColor = wdPink\r\n        .DeletedTextColor = wdRed\r\n        .DeletedTextColor = wdTeal\r\n        .DeletedTextColor = wdTurquoise\r\n        .DeletedTextColor = wdViolet\r\n        .DeletedTextColor = wdWhite\r\n        .DeletedTextColor = wdYellow\r\n        \r\n        .RevisedLinesMark = wdRevisedLinesMarkLeftBorder\r\n        .RevisedLinesMark = wdRevisedLinesMarkNone\r\n        .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder\r\n        .RevisedLinesMark = wdRevisedLinesMarkRightBorder\r\n        \r\n        .RevisedLinesColor = wdAuto\r\n        .RevisedLinesColor = wdBlack\r\n        .RevisedLinesColor = wdBlue\r\n        .RevisedLinesColor = wdBrightGreen\r\n        .RevisedLinesColor = wdByAuthor\r\n        .RevisedLinesColor = wdDarkBlue\r\n        .RevisedLinesColor = wdDarkRed\r\n        .RevisedLinesColor = wdDarkYellow\r\n        .RevisedLinesColor = wdGray25\r\n        .RevisedLinesColor = wdGray50\r\n        .RevisedLinesColor = wdGreen\r\n        .RevisedLinesColor = wdNoHighlight\r\n        .RevisedLinesColor = wdPink\r\n        .RevisedLinesColor = wdRed\r\n        .RevisedLinesColor = wdTeal\r\n        .RevisedLinesColor = wdTurquoise\r\n        .RevisedLinesColor = wdViolet\r\n        .RevisedLinesColor = wdWhite\r\n        .RevisedLinesColor = wdYellow\r\n        \r\n        .CommentsColor = wdAuto\r\n        .CommentsColor = wdBlack\r\n        .CommentsColor = wdBlue\r\n        .CommentsColor = wdBrightGreen\r\n        .CommentsColor = wdByAuthor\r\n        .CommentsColor = wdDarkBlue\r\n        .CommentsColor = wdDarkRed\r\n        .CommentsColor = wdDarkYellow\r\n        .CommentsColor = wdGray25\r\n        .CommentsColor = wdGray50\r\n        .CommentsColor = wdGreen\r\n        .CommentsColor = wdNoHighlight\r\n        .CommentsColor = wdPink\r\n        .CommentsColor = wdRed\r\n        .CommentsColor = wdTeal\r\n        .CommentsColor = wdTurquoise\r\n        .CommentsColor = wdViolet\r\n        .CommentsColor = wdWhite\r\n        .CommentsColor = wdYellow\r\n        \r\n        .MoveFromTextMark = wdMoveFromTextMarkBold\r\n        .MoveFromTextMark = wdMoveFromTextMarkCaret\r\n        .MoveFromTextMark = wdMoveFromTextMarkColorOnly\r\n        .MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough\r\n        .MoveFromTextMark = wdMoveFromTextMarkDoubleUnderline\r\n        .MoveFromTextMark = wdMoveFromTextMarkHidden\r\n        .MoveFromTextMark = wdMoveFromTextMarkItalic\r\n        .MoveFromTextMark = wdMoveFromTextMarkNone\r\n        .MoveFromTextMark = wdMoveFromTextMarkPound\r\n        .MoveFromTextMark = wdMoveFromTextMarkStrikeThrough\r\n        .MoveFromTextMark = wdMoveFromTextMarkUnderline\r\n        \r\n        .MoveFromTextColor = wdAuto\r\n        .MoveFromTextColor = wdBlack\r\n        .MoveFromTextColor = wdBlue\r\n        .MoveFromTextColor = wdBrightGreen\r\n        .MoveFromTextColor = wdByAuthor\r\n        .MoveFromTextColor = wdDarkBlue\r\n        .MoveFromTextColor = wdDarkRed\r\n        .MoveFromTextColor = wdDarkYellow\r\n        .MoveFromTextColor = wdGray25\r\n        .MoveFromTextColor = wdGray50\r\n        .MoveFromTextColor = wdGreen\r\n        .MoveFromTextColor = wdNoHighlight\r\n        .MoveFromTextColor = wdPink\r\n        .MoveFromTextColor = wdRed\r\n        .MoveFromTextColor = wdTeal\r\n        .MoveFromTextColor = wdTurquoise\r\n        .MoveFromTextColor = wdViolet\r\n        .MoveFromTextColor = wdWhite\r\n        .MoveFromTextColor = wdYellow\r\n        \r\n        .MoveToTextMark = wdMoveToTextMarkBold\r\n        .MoveToTextMark = wdMoveToTextMarkColorOnly\r\n        .MoveToTextMark = wdMoveToTextMarkDoubleStrikeThrough\r\n        .MoveToTextMark = wdMoveToTextMarkDoubleUnderline\r\n        .MoveToTextMark = wdMoveToTextMarkItalic\r\n        .MoveToTextMark = wdMoveToTextMarkNone\r\n        .MoveToTextMark = wdMoveToTextMarkStrikeThrough\r\n        .MoveToTextMark = wdMoveToTextMarkUnderline\r\n        \r\n        .MoveToTextColor = wdAuto\r\n        .MoveToTextColor = wdBlack\r\n        .MoveToTextColor = wdBlue\r\n        .MoveToTextColor = wdBrightGreen\r\n        .MoveToTextColor = wdByAuthor\r\n        .MoveToTextColor = wdDarkBlue\r\n        .MoveToTextColor = wdDarkRed\r\n        .MoveToTextColor = wdDarkYellow\r\n        .MoveToTextColor = wdGray25\r\n        .MoveToTextColor = wdGray50\r\n        .MoveToTextColor = wdGreen\r\n        .MoveToTextColor = wdNoHighlight\r\n        .MoveToTextColor = wdPink\r\n        .MoveToTextColor = wdRed\r\n        .MoveToTextColor = wdTeal\r\n        .MoveToTextColor = wdTurquoise\r\n        .MoveToTextColor = wdViolet\r\n        .MoveToTextColor = wdWhite\r\n        .MoveToTextColor = wdYellow\r\n        \r\n        .InsertedCellColor = wdCellColorByAuthor\r\n        .InsertedCellColor = wdCellColorLightBlue\r\n        .InsertedCellColor = wdCellColorLightGray\r\n        .InsertedCellColor = wdCellColorLightGreen\r\n        .InsertedCellColor = wdCellColorLightOrange\r\n        .InsertedCellColor = wdCellColorLightPurple\r\n        .InsertedCellColor = wdCellColorLightYellow\r\n        .InsertedCellColor = wdCellColorNoHighlight\r\n        .InsertedCellColor = wdCellColorPink\r\n        \r\n        .MergedCellColor = wdCellColorByAuthor\r\n        .MergedCellColor = wdCellColorLightBlue\r\n        .MergedCellColor = wdCellColorLightGray\r\n        .MergedCellColor = wdCellColorLightGreen\r\n        .MergedCellColor = wdCellColorLightOrange\r\n        .MergedCellColor = wdCellColorLightPurple\r\n        .MergedCellColor = wdCellColorLightYellow\r\n        .MergedCellColor = wdCellColorNoHighlight\r\n        .MergedCellColor = wdCellColorPink\r\n        \r\n        .DeletedCellColor = wdCellColorByAuthor\r\n        .DeletedCellColor = wdCellColorLightBlue\r\n        .DeletedCellColor = wdCellColorLightGray\r\n        .DeletedCellColor = wdCellColorLightGreen\r\n        .DeletedCellColor = wdCellColorLightOrange\r\n        .DeletedCellColor = wdCellColorLightPurple\r\n        .DeletedCellColor = wdCellColorLightYellow\r\n        .DeletedCellColor = wdCellColorNoHighlight\r\n        .DeletedCellColor = wdCellColorPink\r\n        \r\n        .SplitCellColor = wdCellColorByAuthor\r\n        .SplitCellColor = wdCellColorLightBlue\r\n        .SplitCellColor = wdCellColorLightGray\r\n        .SplitCellColor = wdCellColorLightGreen\r\n        .SplitCellColor = wdCellColorLightOrange\r\n        .SplitCellColor = wdCellColorLightPurple\r\n        .SplitCellColor = wdCellColorLightYellow\r\n        .SplitCellColor = wdCellColorNoHighlight\r\n        .SplitCellColor = wdCellColorPink\r\n        \r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkBold\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkColorOnly\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkDoubleStrikeThrough\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkDoubleUnderline\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkItalic\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkStrikeThrough\r\n        .RevisedPropertiesMark = wdRevisedPropertiesMarkUnderline\r\n        \r\n        .RevisedPropertiesColor = wdAuto\r\n        .RevisedPropertiesColor = wdBlack\r\n        .RevisedPropertiesColor = wdBlue\r\n        .RevisedPropertiesColor = wdBrightGreen\r\n        .RevisedPropertiesColor = wdByAuthor\r\n        .RevisedPropertiesColor = wdDarkBlue\r\n        .RevisedPropertiesColor = wdDarkRed\r\n        .RevisedPropertiesColor = wdDarkYellow\r\n        .RevisedPropertiesColor = wdGray25\r\n        .RevisedPropertiesColor = wdGray50\r\n        .RevisedPropertiesColor = wdGreen\r\n        .RevisedPropertiesColor = wdNoHighlight\r\n        .RevisedPropertiesColor = wdPink\r\n        .RevisedPropertiesColor = wdRed\r\n        .RevisedPropertiesColor = wdTeal\r\n        .RevisedPropertiesColor = wdTurquoise\r\n        .RevisedPropertiesColor = wdViolet\r\n        .RevisedPropertiesColor = wdWhite\r\n        .RevisedPropertiesColor = wdYellow\r\n        \r\n        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationAuto\r\n        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationForceLandscape\r\n        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve\r\n    End With\r\n    \r\n    With ActiveWindow.View\r\n        \r\n        .RevisionsMode = wdBalloonRevisions\r\n        .RevisionsMode = wdInLineRevisions\r\n        .RevisionsMode = wdMixedRevisions\r\n        \r\n        .RevisionsBalloonShowConnectingLines = False\r\n        .RevisionsBalloonShowConnectingLines = True\r\n        \r\n        .RevisionsBalloonSide = wdLeftMargin\r\n        .RevisionsBalloonSide = wdRightMargin\r\n        \r\n        .RevisionsBalloonWidthType = wdBalloonWidthPoints\r\n        .RevisionsBalloonWidthType = wdBalloonWidthPercent\r\n        \r\n        .RevisionsBalloonWidth = MillimetersToPoints(76.2)\r\n        .RevisionsBalloonWidth = 36\r\n    End With\r\nEnd Sub\r\n<\/pre>\n<\/div>","protected":false},"excerpt":{"rendered":"<p>It&#8217;s important for research members who had posted papers to compare between first edition and final ver &hellip; <a href=\"https:\/\/www.fujiitoshiki.com\/improvesociety\/?p=3890\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;Properties of Revision of Microsoft Word 2010&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":3882,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[8],"tags":[],"class_list":["post-3890","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-word"],"aioseo_notices":[],"_links":{"self":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3890","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3890"}],"version-history":[{"count":2,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3890\/revisions"}],"predecessor-version":[{"id":3892,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/posts\/3890\/revisions\/3892"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=\/wp\/v2\/media\/3882"}],"wp:attachment":[{"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3890"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3890"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.fujiitoshiki.com\/improvesociety\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3890"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}