Робин ищет способ уведомить пользователей при открытии документа о том, есть ли какие-либо отслеживаемые изменения в документе. Это не стандартная функция 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 — самая популярная программа для обработки текстов в мире.) Этот совет (409) относится к Microsoft Word 2000, 2002 и 2003.

Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и более поздних версий) здесь:

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