Добрый день!
Столкнулся сейчас с проблемой: в одном огромном тексте оказалось много сбойных сносок. Помогите пожалуйста, глаза сломал уже, как можно удалить сразу все такие? Пример приложил.
[вложение удалено администратором]
На что мне посмотреть? Почему сноска сбойная?
Нет текста в самой сноске и цифры тоже нет.
Макрос
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
Большое спасибо!