Уважаемые спациалисты, прошу вашей помощи в следующем вопросе.
Есть файл с перечнем продукции на польском языке, из которого нужно удалить названия категории товара и оставить только наименование. С самим удалением слов вопросов не возникло. Возникла проблема с добавлением в макрос слов с нетипичными символам польского алфавита - Ł,Ź, Ó, Ć и т.д. Если вставить такое слово в макрос, при сохранении символ просто заменяется на обычный, без палочек. Как я понял, такие символы нужно вводить через код Юникода. Но попытки не увенчались успехом. Нашел список кодов Юникода по польскому алфавиту https://unicode-table.com/ru/alphabets/polish/ (https://unicode-table.com/ru/alphabets/polish/).
Подскажите пожалуйста макрос, который бы заменял в файле эти диакритические символы на обычные, чтобы далее сформировать макрос на удаление не нужных слов.
Покажите пожалуйста на примере одного символа, как это делается и в каком формате вообще это все нужно прописывать в макрос. Заранее благодарен!
Sub vvv()
For Each cl In Selection
For i = 1 To Len(cl)
m = Chr(Asc(Mid(cl, i, 1))): slovo = slovo & m
Next
cl.Value = slovo
slovo = ""
Next
End Sub
выделите диапазон и запустите макрос. Проверяйте
Огромное спасибо! все работает как надо! вы как всегда лучшие) :D