Тема: Слишком длинный строковый параметр???
Прошу подскажите, что делаю не так.
Имеется текст, имеется таблица замен: в 1 ст. что искать во 2 ст. на что заменять.
Вот макрос поиска и замены
Dim i As Integer
Dim line1, line2 As String
For i = 1 To 6378
line1 = ActiveDocument.Tables(1).Cell(i, 1).Range.Text
line2 = ActiveDocument.Tables(1).Cell(i, 2).Range.Text
line1 = Left(line1, Len(line1) - 2) & Chr(13)
line2 = Left(line2, Len(line2) - 2) & Chr(13)
With Selection.Find
.Text = line1
.Replacement.Text = line2
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceOne
line1 = ""
line2 = ""
Next i
End Sub
На определенных строках выдает ошибку 5954 "Слишком длинный строковый параметр"
Пример такой строки:
"не было у бабы хлопот (забот), (так) купила баба порося@не знала баба горя, (так) купила (баба) порося@не было у бабы хлопот (забот), (так) купила (баба) порося@не было у бабы забот, (так) купила (баба) порося@не было у бабы забот (хлопот), (так) купила (баба) порося@не знала баба горя, (так) купила(баба) порося@не было у бабы хлопот, (так) купила (баба) порося"
Это ограничения with selection find? Как быть?
Заранее благодарен.