yanaspecialtm 16 Опубликовано 21 февраля, 2014 Share Опубликовано 21 февраля, 2014 Работает только в текстах малого размера, связано с ограничением в байтах строковой переменной. Чем её заменить? Цитата Ссылка на сообщение Поделиться на другие сайты
Skarbovoy 470 Опубликовано 21 февраля, 2014 Share Опубликовано 21 февраля, 2014 Текст макроса можно? Цитата Ссылка на сообщение Поделиться на другие сайты
иван8715 98 Опубликовано 22 февраля, 2014 Share Опубликовано 22 февраля, 2014 Вот здесь могут возникнуть проблемы. Не из-за ограничения строки, а из-за переменной целого типа. For i% = 1 To Len(a$) a1$ = Mid$(a$, i, 1) Алгаритм нужно менять. Ну как получилось? алгаритм такой, уберите все значки % $ и всё заработает. будет не целый а лонгг тип : а это намного больше, хватит на 2 милиарда символов 3 Цитата Ссылка на сообщение Поделиться на другие сайты
Mike 2 9 Опубликовано 25 февраля, 2014 Share Опубликовано 25 февраля, 2014 (изменено) Автор темы что то не отвечает.Попробую, на уже имеющихся данных в теме, помочь готовым макросом для замены символов в тексте.Проверено на большом обьеме текста Sub Макрос1() Selection.WholeStory a$ = Selection.Text For i = 1 To Len(a$) a1$ = Mid$(a$, i, 1) Select Case a1$ Case ****: a1$ = **** End Select Mid$(a$, i, 1) = a1$ Next i Selection.Text = a$ End Sub Изменено 25 февраля, 2014 пользователем Mike 2 Цитата Ссылка на сообщение Поделиться на другие сайты
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.