1
追跡された変更を書式付きテキストに変換しようとしています。私は素晴らしい@CindyMeisterから下の素晴らしいマクロを持っていますが、移動の変更（緑の二重取り消し線が移動し、緑の二重下線が移動されました）を処理しません。移動したり移動したりする行を追加しましたが、緑色のテキストの色を維持する方法を理解できていないようです。誰も私はそれを修正するマクロを更新する方法を知っていますか？移動した書式を使用して移動したMS Wordの変更をトラックに変換する
Sub FormatRevisions()
Dim doc As Word.Document
Dim rev As Word.Revision
Set doc = ActiveDocument
doc.TrackRevisions = False
For Each rev In doc.Revisions
Select Case rev.Type
Case wdRevisionMovedFrom
rev.Range.Font.DoubleStrikeThrough = True
rev.Reject
Case wdRevisionMovedTo
rev.Range.Underline = wdUnderlineDouble
rev.Accept
Case wdRevisionDelete
rev.Range.Font.StrikeThrough = True
rev.Reject
Case wdRevisionInsert
rev.Range.Underline = wdUnderlineSingle
rev.Accept
Case wdRevisionFormat
MsgBox "revision format"
rev.Accept
Case wdRevisionStyle
MsgBox "revision style"
rev.Accept
Case wdRevisionStyleDefinition
MsgBox "revision style def"
rev.Accept
Case wdRevisionSectionProperty
MsgBox "revision section prop"
rev.Accept
Case wdRevisionReplace
MsgBox "revision replace"
rev.Accept
Case wdRevisionTableProperty
MsgBox "revision table property"
rev.Accept
Case wdRevisionReconcile
MsgBox "revision reconcile"
rev.Accept
Case wdRevisionProperty
MsgBox "revision property"
rev.Accept
Case wdRevisionParagraphProperty
MsgBox "revision para property"
rev.Accept
Case wdRevisionParagraphNumber
MsgBox "revision para number"
rev.Accept
Case wdRevisionDisplayField
MsgBox "revision display field"
rev.Accept
Case wdRevisionConflict
MsgBox "revision conflict"
rev.Accept
Case wdNoRevision
MsgBox "no revision"
rev.Accept
Case Else
MsgBox "unknown type"
doc.Comments.Add rev.Range, "unknown type"
End Select
Next
End Sub
MSDNでのMS Word文書モデルで非常に簡単に見にターンアップ[改訂種類のリストを]（HTTPS：/ /msdn.microsoft.com/en-us/library/office/ff839110.aspx）。あなたは食べるのを待つのではなく、魚を習う（自分でやる）ことを学ぶべきです。 –
あなたがトライアル弁護士であれば、変更を加えるために誰かを雇うことができるはずです。あなたの時間が貴重すぎると感じて、あなたに無料であなたのためにそれをするように依頼することができるのはなぜですか？ –
ケン、リードのおかげで。私はあなたを邪魔して申し訳ありません。あなたが何かをしてIP訴訟の助言を10分必要としている場合は、自分でやるのが面倒で、私を見て自由に感じる。 –