Проблема с поиском в ворде

[Aleksey1989]

Добрый день. Помогите решить следующую проблему:

Мне нужно в документе Word отыскать текст и заменить его на нужный. Вот код функции, заменяющей данный текст:

function TFormDogReclama.FindAndReplace2(const FindText,
  ReplaceText: WideString): boolean;
const wdReplaceAll = 2;
begin
  Word.Selection.Find.MatchSoundsLike := False;
  Word.Selection.Find.MatchAllWordForms := False;
  Word.Selection.Find.MatchWholeWord := False;
  Word.Selection.Find.Format := False;
  Word.Selection.Find.Forward := True;
  Word.Selection.Find.ClearFormatting;
  Word.Selection.Find.Text:=FindText;
  Word.Selection.Find.Replacement.Text:=ReplaceText;
  FindAndReplace2:=Word.Selection.Find.Execute(Replace:=wdReplaceAll);

Проблема заключается в том, что если в качестве 2-го параметра я поставлю большой текст, т.е. его длина будет превышать 255 символов, то возникает ошибка "слишком длинный строковый параметр". Как мне обойти эту ошибку?

[Aleksey1989]

Ну все, эту проблему обошел. Появилась другая: найденный текст я заменяю на следующий:

1.1.1. Изготовить и организовать распространение рекламной информации о товарах (работах, услугах) Заказчика и его товарных знаках.
1.1.2. Обеспечить распространение пробных партий товаров и сувениров с товарным знаком Заказчика.
1.1.3. Доводить до сведения клиентов Исполнителя информацию о Заказчике (наименование, местонахождение, часы работы, контактные телефоны).

Результат в ворде выглядит примерно так:

______1.1.1. Изготовить и организовать распространение рекламной информации о товарах (работах, услугах) Заказчика и его товарных знаках.
1.1.2. Обеспечить распространение пробных партий товаров и сувениров с товарным знаком Заказчика.
1.1.3. Доводить до сведения клиентов Исполнителя информацию о Заказчике (наименование, местонахождение, часы работы, контактные телефоны).

П.с. вместо "______" абзацный отступ.

Т.е. для 1-го пункта есть красная строка, а для 2-х других её нету, она является продолжением 1-го пункта (абзацный отступ такой же). Пробовал добавить #13, но все равно ничего не выходит, пункт просто опускается на одну строку вниз. Что посоветуете?

[dolphin705]

Подскажите как решили проблему с длинной?