跟踪然后删除选择然后跟踪关闭

Question

任何人都可以提供执行此操作的Microsoft Word VBA或宏。我想选择一个简单的文本，然后我想运行一个宏来做这个：

跟踪更改 - 开启＆gt;＆gt;删除选择＆gt;＆gt;跟踪更改 - 关闭

以下宏不起作用，因为第1行和第3行只是将Track Changes从其当前状态切换。因此，如果TC当前为ON，则通过将TC切换为OFF（不良结果）开始宏。

  ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
  Selection.Delete Unit:=wdCharacter, Count:=1
  ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions

Answer 1

Document.TrackRevisions property是布尔值，因此您只需编写：

ActiveDocument.TrackRevisions = True
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveDocument.TrackRevisions = False

请注意，您可能希望将TR恢复到原始状态：

Dim tr As Boolean
tr = ActiveDocument.TrackRevisions

ActiveDocument.TrackRevisions = True
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveDocument.TrackRevisions = tr