מיועד לתוספת הערות שוליים ששם המגיה הוא דוד

Sub AcceptFootnotesByAuthor()
    Dim doc As Document
    Dim rev As Revision
    Dim targetAuthor As String

    ' הגדרת המסמך הנוכחי לעבודה
    Set doc = ActiveDocument

    ' === הגדרות משתמש ===
    ' שנה את השם כאן לשם המדויק של המגיה כפי שהוא מופיע בבועות השינויים בוורד
    targetAuthor = "דוד"
    ' ====================

    ' לולאה העוברת על כל השינויים (Revisions) הקיימים במסמך
    For Each rev In doc.Revisions
        
        ' בדיקה 1: האם השינוי נעשה על ידי המגיה הספציפי?
        If rev.Author = targetAuthor Then
            
            ' בדיקה 2: האם סוג השינוי הוא "הוספה" (Insert)?
            ' אנו מסננים מחיקות או שינויי עיצוב, ומתמקדים רק בהוספות
            If rev.Type = wdRevisionInsert Then
                
                ' בדיקה 3: האם בתוך הטקסט שהוסף קיימת הערת שוליים?
                ' המאפיין Footnotes.Count סופר כמה הערות שוליים יש בתוך טווח השינוי
                If rev.Range.Footnotes.Count > 0 Then
                    
                    ' אם כל התנאים התקיימו - קבל (אשר) את השינוי הזה
                    rev.Accept
                    
                End If
            End If
        End If
        
    Next rev

    ' הודעת סיום למשתמש
    MsgBox "התהליך הסתיים. אושרו הערות שוליים שהוסיף " & targetAuthor, vbInformation
End Sub