Добрый день!
У меня есть документ, не я делал, надо его обработать. А по тексту внедрены непонятные слова в (сжатом?) измененном виде.
Помогите от всех сразу избавиться, вручную так долго высматривать, выделять удалять! Пример приложил - такое слово есть рядом с буквой "и" и оно не нужно. Такие искаженные слова встречаются по всему тексту и слова эти все разные. Как они попали сюда - знает только тот, кто делал документ. Увидеть их можно, если выделить и сбросить формат строки.
[вложение удалено администратором]
У этого текста специфичные параметры шрифта (диалог "Шрифт", вкладки "Шрифт" и "Дополнительно").
Этот макрос удаляет текст, у которого масштаб 1%:
Sub Макрос1()
With ActiveDocument.Range.Find
.Font.Scaling = 1
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
MsgBox "Готово.", vbInformation
End Sub
Помогло! Спасибо!