Перейти к содержанию

Макрос Word для замены символов, как снять ограничение на размер?


Рекомендуемые сообщения

Работает только в текстах малого размера, связано с ограничением в байтах строковой переменной. Чем её заменить?
 

 

Ссылка на сообщение
Поделиться на другие сайты

Вот здесь могут возникнуть проблемы. Не из-за ограничения строки, а из-за переменной целого типа.

 

For i% = 1 To Len(a$)

a1$ = Mid$(a$, i, 1)

 

Алгаритм нужно менять.

 

 

Ну как получилось?

алгаритм такой, уберите все значки % $ и всё заработает.

будет не целый а лонгг тип

:

а это намного больше, хватит на 2 милиарда символов

Ссылка на сообщение
Поделиться на другие сайты

Автор темы что то не отвечает.
Попробую, на уже имеющихся данных в теме, помочь готовым макросом для замены символов в тексте.
Проверено на большом обьеме текста :)
 

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
Изменено пользователем Mike 2
Ссылка на сообщение
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

×
×
  • Создать...