Поиск и замена текста в документе из VBA

[leo-udav]

Казалось бы всё просто, есть Find and Replace.
НО! Размер вставляемого текста оказывается ограничен. При длине текста 306 символов выдаётся сообщение для текста замены "Run-time error 5854" - слишком длинный строковый параметр.
Я бы вставил его просто через InsertBefor, например, но для этого надо найти исходный текст и выделить его - не получается.

[Aleksandr H.]

вариант:
надо вставить Текст1Текст2
1) вставить Текс1_$&%^
2) найти и заменить _$&%^ на Текст2

[viter.alex]

Да, у поиска/замены есть ограничение в 254 символа. И это логично.
Если нужно заменять больше, то вы что-то делаете не так.
Подозреваю, что вы решаете задачу по заполнению документов, где на места с ключевыми словами нужно подставлять другой текст. Если да, то это делается не поиском и заменой.
Если нет, то нужно использовать поиск для отыскания нужного фрагмента, а потом через InsertBefore добавлять свой текст. Лучше искать, начиная с конца документа.

Sub ReplaceLargeText(doc As Document, txtToFind As String, largeTxtToReplace As String)
  Dim rngStart, rngEnd As Long
  Dim rng As Range
  Set rng = doc.Range
  Do
    With rng.Find
      'Ищем с конца
      .Forward = False
      .Text = txtToFind
      If .Execute Then
        'Начало найденного фрагмента
        rngStart = .Parent.Start
        'Конец найденного фрагмента
        rngEnd = .Parent.End
        'Добавляем текст
        doc.Range(rngStart).InsertBefore largeTxtToReplace
        'Переопределяем диапазон поиска от начала документа до начала найденного фрагмента
        rng.SetRange 0, rngStart
      Else
        'Если ничего не нашли, то выходим из цикла.
        Exit Do
      End If
    End With
  Loop While True
End Sub