Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Диакритические символы польского языка в макросе

Автор smartus, 08.02.2017, 17:04

« назад - далее »

smartus

Уважаемые спациалисты, прошу вашей помощи в следующем вопросе.

Есть файл с перечнем продукции на польском языке, из которого нужно удалить названия категории товара и оставить только наименование. С самим удалением слов вопросов не возникло. Возникла проблема с добавлением в макрос слов с нетипичными символам польского алфавита - Ł,Ź, Ó, Ć и т.д. Если вставить такое слово в макрос, при сохранении символ просто заменяется на обычный, без палочек. Как я понял, такие символы нужно вводить через код Юникода. Но попытки не увенчались успехом. Нашел список кодов Юникода по польскому алфавиту https://unicode-table.com/ru/alphabets/polish/.

Подскажите пожалуйста макрос, который бы заменял в файле эти диакритические символы на обычные, чтобы  далее сформировать макрос на удаление не нужных слов.

Покажите пожалуйста на примере одного символа, как это делается и в каком формате вообще это все нужно прописывать в макрос. Заранее благодарен!

cheshiki1

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

выделите диапазон и запустите макрос. Проверяйте

smartus

Огромное спасибо! все работает как надо! вы как всегда лучшие) :D