Робин ищет способ уведомить пользователей при открытии документа о том, есть ли какие-либо отслеживаемые изменения в документе. Это не стандартная функция Word, но ее достаточно легко добавить с помощью макроса AutoOpen. Если вы хотите, чтобы макрос просто указывал, включено ли отслеживание изменений, вы можете использовать следующее:

Sub AutoOpen()

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On."

End If End Sub

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

Sub AutoOpen()

On Error Resume Next

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If

If ActiveDocument.Revisions.Count > 0 Then         MsgBox "Document contains revisions"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If End Sub

Эта версия макроса проверяет два условия: отображает окно сообщения, если включено отслеживание изменений, а также окно сообщения, если в документе есть какие-либо изменения. В обоих случаях макрос также изменяет вид документа, чтобы изменения были видны на экране.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (10971) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Tracked_Changes_Notification_when_Opening [Уведомление об отслеживаемых изменениях при открытии].