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

[Йожег]

Объект №50205 Большой участок ИЖС рядом с Казанью! Для тех кто хочет жить в своем доме рядом с городом! 🏚 🏞 Поселок Усады-10 минут езды от Казани. Самый зеленый и экологичный Лаишевский район Татарстана.

Есть к примеру текст в который запихнули всякую дрянь для украшения их объявы. При вставке в индизайн он падает без шума и пыли. Хочется макросом отловить (в ворде) такие причуды, чтоб не выискивать их в тексте ручками. Проблема в том что фантазия у народа богатая и это могут быть и другие непечатные плюшки.

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

 

[Йожег]

Сам процесс удаления мне понятен Никак не соображу как задать условие для поиска. Вот только не надо писать "у меня ничо не падает" не хочу расписывать весь процесс. Просто как символы в ворде найти и удалить? Не только эти три, а и другие им подобные.

 

[imma]

сохранить как txt и додушить в ИнД

 

[dastin]

как задать условие для поиска.

м.б. жестко? типа

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 - в пим дырявый