Как в ворде удалить непотребные символы?

Йожег

без телевизора
Топикстартер
12 лет на форуме
Сообщения
8 829
Реакции
4 274
Объект №50205 Большой участок ИЖС рядом с Казанью! Для тех кто хочет жить в своем доме рядом с городом! 🏚 🏞🔝 Поселок Усады-10 минут езды от Казани. Самый зеленый и экологичный Лаишевский район Татарстана.
Есть к примеру текст в который запихнули всякую дрянь для украшения их объявы. При вставке в индизайн он падает без шума и пыли. Хочется макросом отловить (в ворде) такие причуды, чтоб не выискивать их в тексте ручками. Проблема в том что фантазия у народа богатая и это могут быть и другие непечатные плюшки.

Мне это счастье приходит вот в таком виде. Возможно в сверхновых вордах они будут заметнее (картинками) но все равно придется просматривать многостраничную портянку. А хочется душить их как Шариков кошек.
121571
 
Последнее редактирование:

Йожег

без телевизора
Топикстартер
12 лет на форуме
Сообщения
8 829
Реакции
4 274
Сам процесс удаления мне понятен :) Никак не соображу как задать условие для поиска. Вот только не надо писать "у меня ничо не падает" не хочу расписывать весь процесс. Просто как символы в ворде найти и удалить? Не только эти три, а и другие им подобные.
 
Последнее редактирование:

imma

15 лет на форуме
Сообщения
3 089
Реакции
2 185
сохранить как txt и додушить в ИнД
 

dastin

Некромант-любитель
12 лет на форуме
Сообщения
2 131
Реакции
2 027
как задать условие для поиска.
м.б. жестко? типа
Код:
Private Function GetStrippedText(txt As String) As String
    Dim regEx As Object

    Set regEx = CreateObject("vbscript.regexp")
    regEx.Pattern = "[^\u0000-\u007F]"
    GetStrippedText = regEx.Replace(txt, "")

End Function
все что не ASCII - больше 255 - в пим дырявый