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

[yanaspecialtm]

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

 

 

[Skarbovoy]

Текст макроса можно?

[иван8715]

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

 

For i% = 1 To Len(a$)

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

 

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

 

 

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

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

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

:

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

[Mike 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

Изменено 25 февраля, 2014 пользователем Mike 2