Word VBA Макрос: Как удалить все сжатые слова?

Автор Anton, 25 июля 2017, 15:39

Anton

Добрый день!
У меня есть документ, не я делал, надо его обработать. А по тексту внедрены непонятные слова в (сжатом?) измененном виде.
Помогите от всех сразу избавиться, вручную так долго высматривать, выделять удалять! Пример приложил - такое слово есть рядом с буквой "и" и оно не нужно. Такие искаженные слова встречаются по всему тексту и слова эти все разные. Как они попали сюда - знает только тот, кто делал документ. Увидеть их можно, если выделить и сбросить формат строки.

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

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

У этого текста специфичные параметры шрифта (диалог "Шрифт", вкладки "Шрифт" и "Дополнительно").
Этот макрос удаляет текст, у которого масштаб 1%:

Sub Макрос1()
    With ActiveDocument.Range.Find
        .Font.Scaling = 1
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
    End With
    MsgBox "Готово.", vbInformation
End Sub

Anton