اعلان تغییرات پیگیری شده هنگام باز کردن

Question

رابین به دنبال راهی برای اطلاع کاربران در هنگام باز شدن یک سند است که آیا تغییرات ردیابی شده در سند وجود دارد یا خیر. این یک ویژگی استاندارد Word نیست، اما می توان آن را به راحتی با یک ماکرو AutoOpen اضافه کرد. اگر می خواهید ماکرو به سادگی نشان دهد که آیا Track Changes روشن است، می توانید از موارد زیر استفاده کنید:

Sub AutoOpen()
    If ActiveDocument.TrackRevisions = True Then
        MsgBox "Track Changes is On."
    End If
End Sub

توجه داشته باشید که این ماکرو به شما اطلاع نمی‌دهد که آیا واقعاً تغییراتی در سند وجود دارد یا خیر، بنابراین در شرایطی که Track Changes خاموش است کمکی نمی‌کند، اما تغییرات حل‌نشده از جلسه ویرایش قبلی همچنان وجود دارد. در این صورت، باید ماکرو را کمی گسترش دهید.

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

این نسخه از ماکرو دو شرط را بررسی می‌کند، در صورت روشن بودن Track Changes یک جعبه پیام و همچنین اگر تغییراتی در سند وجود داشته باشد یک جعبه پیام را نمایش می‌دهد. در هر دو مورد، ماکرو نمای سند را نیز تغییر می‌دهد تا تغییرات روی صفحه قابل مشاهده باشد.