跟踪打开然后删除选择然后跟踪关闭答案

【问题标题】：Track On then Delete Selection then Track Off跟踪打开然后删除选择然后跟踪关闭
【发布时间】：2018-01-24 22:37:39
【问题描述】：

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

跟踪更改 - 开 >> 删除选择 >> 跟踪更改 - 关

以下宏不起作用，因为第 1 行和第 3 行只是将跟踪更改从其当前状态切换。因此，如果 TC 当前为 ON，则宏首先将 TC 切换为 OFF（错误结果）。

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

【问题讨论】：

标签： vba ms-word

【解决方案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

【讨论】：