Word: Как удалить сбойные сноски с помощью макроса?

[Anton]

Добрый день!
Столкнулся сейчас с проблемой: в одном огромном тексте оказалось много сбойных сносок. Помогите пожалуйста, глаза сломал уже, как можно удалить сразу все такие? Пример приложил.

[вложение удалено администратором]

[Администратор]

На что мне посмотреть? Почему сноска сбойная?

[Anton]

Нет текста в самой сноске и цифры тоже нет.

[Администратор]

Макрос

Sub Макрос()
   
    Application.ScreenUpdating = False
    If ActiveDocument.Footnotes.Count <> 0 Then
        DelNotes ActiveDocument.Footnotes
    End If
    If ActiveDocument.Endnotes.Count <> 0 Then
        DelNotes ActiveDocument.Endnotes
    End If
    Application.ScreenUpdating = True

End Sub

Private Sub DelNotes(notes As Object)
    Dim i As Long
    For i = notes.Count To 1 Step -1
        If notes(i).Range.text = "" Then
            notes(i).Delete
        End If
    Next i
End Sub

[свернуть]

[Anton]

Большое спасибо!