web-dev-qa-db-ja.com

追跡された変更を強調表示に変換する

Microsoft Word2010で追跡された変更を強調表示されたテキストに変換する自動化された方法を探しています。したがって、本質的に私がやりたいことは次のとおりです。

  1. 追跡された変更ですべてのテキストフラグメントを強調表示する
  2. 追跡されたすべての変更を受け入れます（そのためのボタンがあります）

組み込み機能またはスクリプトを使用してこれを行う方法はありますか？

microsoft-wordvbamicrosoft-word-2010
4
Rob Hall

VBAには Revisions Object があります。そこから、各リビジョンアイテムを繰り返し処理し、それを受け入れて、事前定義された色で強調表示するのは簡単です。

さらに、追跡を一時的に無効にする必要があります。

Sub tracked_to_highlighted()           
    tempState = ActiveDocument.TrackRevisions
    ActiveDocument.TrackRevisions = False    
    For Each Change In ActiveDocument.Revisions        
        Set myRange = Change.Range
        myRange.Revisions.AcceptAll
        myRange.HighlightColorIndex = wdGreen            
    Next    
    ActiveDocument.TrackRevisions = tempState
End Sub
5
nixda