Sub RejectFootnoteDeletionsByAuthor()
    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: האם סוג השינוי הוא "מחיקה" (Delete)?
            ' אנו מחפשים מקרים שבהם המגיה מחק הערה או טקסט מתוכה
            If rev.Type = wdRevisionDelete Then
                
                ' בדיקה 3: האם השינוי נוגע להערת שוליים?
                ' יש שתי אפשרויות:
                ' א. המחיקה כוללת את "עוגן" הערת השוליים (המספר הקטן בגוף הטקסט)
                ' ב. המחיקה התבצעה בתוך אזור הערות השוליים למטה (StoryType = wdFootnotesStory)
                
                If rev.Range.Footnotes.Count > 0 Or rev.Range.StoryType = wdFootnotesStory Then
                    
                    ' אם זה המצב - דחה את המחיקה (כלומר: החזר את ההערה/הטקסט)
                    rev.Reject
                    
                End If
            End If
        End If
        
    Next rev

    ' הודעת סיום למשתמש
    MsgBox "התהליך הסתיים. נדחו (שוחזרו) מחיקות של הערות שוליים שביצע " & targetAuthor, vbInformation
End Sub