Снимите флажок «Форматирование» в MSWord отслеживает изменения Параметры разметки?(Office 365 для Mac v16.26)

Question

Я хочу использовать подпункт AutoOpen () для всех документов, чтобы (1) включить отслеживаемые изменения [эта часть выполнена успешно] и (2) остановить Word для отображения изменений форматирования на боковой панели. По умолчанию Word отображает все комментарии и форматирует их в виде всплывающих подсказок, что мне и нужно, но на самом деле мне не нужно отслеживать или просматривать изменения форматирования.

Смотрите! [Скриншот] https://imgur.com/a/28ARVob для скриншота того, что я хочу сделать автоматически с помощью макроса. Когда я выбираю «Запись макроса», снимаю флажок «Форматирование» и прекращаю запись, в VBE не генерируется код. Похоже, что в VBA нет доступного свойства для Word (Mac или иного), которое могло бы достичь этой цели.

Вот мой текущий код AutoOpen ():

Sub AutoOpen()

    ActiveDocument.TrackRevisions = True

    With ActiveDocument
        .TrackFormatting = False
    End With

End Sub

Отключение отслеживания форматирования, как я сейчас делаю, работает только в дальнейшем, поэтому все существующие изменения будут отображаться до тех пор, пока я не уберу галочку с опции Форматирование. Это частичное решение, по крайней мере.

Я также знаю, что есть свойство для показа / скрытия ревизий в целом (т.е. я мог бы включить код: .ShowRevisions = False), но это не совсем то, что я ищу здесь, так как я хочу только скрыть форматирование (я бы ожидал, что это будет что-то вроде .ShowFormatting, но это не свойство в VBA).

Любые мысли / предложения приветствуются.

Answer 1

Эти настройки находятся в другой части объектной модели, под объектом View.Вот фрагмент кода, который показывает, как отключить отображение отслеживаемых изменений .Обратите внимание, что не удаляет их из документа, а только подавляет отображение.Чтобы удалить эти изменения из документа, необходимо принять или отклонить изменения.

Dim doc As Word.Document

Set doc = ActiveDocument
doc.TrackRevisions = True
doc.TrackFormatting = False
doc.ActiveWindow.View.ShowFormatChanges = False