2

Word 文書のレビュー後に挿入および削除されたテキストを抽出したいと考えています。次のマクロを使用してコメントを抽出できました。

Sub ExportComment()
Dim s As String
Dim cmt As Word.Comment
Dim doc As Word.Document
Dim workBk As Word.Document
Set workBk = ActiveDocument
Set doc = Documents.Add(Visible:=True)
Dim myRange As Range
Set myRange = doc.Range(0, 0)
Dim myTable As Table
Set myTable = doc.Tables.Add(Range:=myRange, NumRows:=workBk.Comments.Count, NumColumns:=6)
Dim i As Integer
i = 1
For Each cmt In workBk.Comments
myTable.Cell(i, 1).Range.Text = cmt.Index
myTable.Cell(i, 2).Range.Text = cmt.Scope.Information(wdActiveEndPageNumber)
myTable.Cell(i, 3).Range.Text = cmt.Initial
myTable.Cell(i, 4).Range.Text = cmt.Scope
myTable.Cell(i, 5).Range.Text = cmt.Range.Text
i = i + 1
Next
End Sub

しかし、追跡された変更から挿入および削除されたテキストを取得する方法も理解できないようです。何か案は?

ありがとう!

4

1 に答える 1

1

Commentsサンプルコードでコレクションを使用したのと同じように、Revisionsコレクションを使用する必要があります(たとえばDim rev as Word.Revision)。とは異なりCommentsRevisionsさまざまな種類のトラック変更を識別するために使用できるTypeプロパティがあります。いくつかのリビジョンタイプは次のとおりです。

ここに画像の説明を入力してください

リビジョンを抽出するVBAコードの例を見たい場合は、次のURLにアクセスしてください。

http://www.thedoctools.com/downloads/basTrackChanges_Extract.shtml

これは、リビジョンの抽出の問題について説明しているときに、以下のページで参照されます。

http://www.thedoctools.com/index.php?show=mt_trackchanges_extract

于 2012-06-21T03:28:32.883 に答える