Vba 跟踪打开，然后删除所选内容，然后跟踪关闭

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

曲目更改-打开>>删除选择>>曲目更改-关闭

以下宏不起作用，因为第1行和第3行只是将轨迹更改从当前状态切换到当前状态。因此，如果TC当前处于打开状态，则宏将首先将TC切换到OFF bad result（关闭不良结果）

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

是一个布尔值，因此您可以简单地编写：

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