دریافت تغییر و تعداد نظرات توسط نویسنده

Question

جکی به طور مرتب از Track Changes در بخش خود استفاده می کند. او خاطرنشان می کند که خوب است که بتوانیم یک سند علامت گذاری شده را تجزیه و تحلیل کنیم تا تعداد تغییرات و تعداد نظراتی که توسط ویراستاران مختلف روی سند انجام شده است را به دست آوریم.

کلمه این توانایی را فراهم نمی کند. با این حال، می توانید یک ماکرو ایجاد کنید که ممکن است اطلاعات مورد نظر شما را در اختیار شما قرار دهد. مثال زیر هر یک از ویرایش‌ها را در یک سند طی می‌کند و نام ویرایشگر و تعداد تغییرات هر ویرایشگر را جمع‌آوری می‌کند.

Sub CountReviewers()
    Dim J As Integer
    Dim Cnt As Integer
    Dim sMsg As String
    Dim Authors(299) As String
    Dim aCount(299) As Long
    Dim aRev As Revision
    Dim bNew As Boolean

    Cnt = 0
    On Error GoTo RevNext

    For Each aRev In ActiveDocument.Revisions
        " Check to see if this is a new author
        bNew = True
        For J = 1 To Cnt
            If aRev.Author = Authors(J) Then
                " Already have author
                aCount(J) = aCount(J) + 1
                bNew = False
            End If
        Next J
        If bNew Then
            " New author; add to list
            Cnt = Cnt + 1
            Authors(Cnt) = aRev.Author
            aCount(Cnt) = 1
        End If
RevNext:
    Next aRev

    " Put together and display final report
    sMsg = ""
    For J = 1 To Cnt
        sMsg = sMsg & Authors(J) & " (" & Trim(Str(aCount(J))) & ")" & vbCrLf
    Next J
    sMsg = sMsg & "Total revisions:" & Str(ActiveDocument.Range.Revisions.Count)
    MsgBox sMsg
End Sub

هنگام استفاده از یک ماکرو مانند این چند نکته وجود دارد که باید به خاطر بسپارید. اول، به سختی می توان تا 299 ویرایشگر را در سند مدیریت کرد. اگر تعداد بیشتری دارید، فقط تعداد عناصری را که به وسیله آنها آرایه های Authors() و aCount() اندازه می شوند، افزایش دهید. دوم، اگر سند شما طولانی است و ویرایش های زیادی دارد، ممکن است مدتی طول بکشد تا ماکرو اجرا شود. بنابراین، هرچه سند طولانی‌تر و سنگین‌تر ویرایش شود، باید صبورتر باشید.

در نهایت، این امکان وجود دارد که ماکرو با برخی از اسناد به طور غیرمعمول از کار بیفتد. (نه همه، بلکه فقط برخی از آنها.) به نظر می رسد این اغلب در مورد اسنادی اتفاق می افتد که تغییرات ردیابی شده ناشی از تغییر خودکار فیلد دارند. خطایی که توسط چنین سناریویی ایجاد می شود به دلایلی نمی تواند به دام افتاده باشد، زیرا به نظر می رسد این مشکل ریشه در خطای VBA یا Excel دارد.