从 docx 文件中提取跟踪更改信息（插入的已删除文本）答案

【问题标题】：extract track changes information (inserted deleted text) from docx file从 docx 文件中提取跟踪更改信息（插入的已删除文本）
【发布时间】：2012-06-20 21:11:31
【问题描述】：

我希望在审核后从 Word 文档中提取插入和删除的文本。我已经能够使用以下宏提取 cmets：

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

但似乎无法弄清楚如何从跟踪更改中获取插入和删除的文本。有什么想法吗？

谢谢！

【问题讨论】：

标签： ms-word

【解决方案1】：

正如您在示例代码中使用 Comments 集合一样，您也需要使用 Revisions 集合（例如，Dim rev as Word.Revision）。与 Comments 不同，Revisions 有一个 Type 属性，您可以使用它来识别不同种类的 Track Changes。以下是一些修订类型：

如果您想查看提取修订的示例 VBA 代码，请转到

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

在讨论提取修订的问题时在下面的页面上引用：

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

【讨论】：