[Syslenish]

Так, у меня едет крыша)) Я разобралась с макросами, но теперь не знаю, как мне мой этот замечательный текст впихнуть именно в нужное мне место! Получается, он сразу этот мой жирный текст записывает ) Прям с самого начала документа! А как же его запихать в конкретное место? Этот кусок текста мне нужно вставить вместо метки "&износ" в файл типа .doc (в мою кальку) а он у меня вставляется в начало документа))

Ищу и заменяю текст я таким образом:

Код:

function TForm1.WordFindAndInsert(FindText, ReplacementText: String): boolean;
  const wdReplaceAll=2; //указываю, что это шаблон Word (файл с расширением DOС)
begin
  W.Selection.Find.Text:=FindText; // поиск текста
  W.Selection.Find.Replacement.Text:=ReplacementText;//текст для вставки
  WordFindAndInsert:=W.Selection.Find.Execute(Replace:=wdReplaceAll); //замена текста
end;

а вот кусок в тексте, где я хочу конкретную фразу вставить в конкретное место, но он мне в определенное место вставляет без всяких выделений, а в начале документа тот текст, который нужно))

Код:

text1:='Расчетный износ (Иф) ТС по методике Андрианова определяется по формуле:';
            Wordinsert(text1,true,false,false,false,10,false);
           iznos:= iznos+text1+#13;
           WordFindAndInsert('&износ', iznos);
          W.Selection.Font.Bold:= false;

где

Код:

procedure Wordinsert(info: string; _bold, _italic, _StrikeThrough, _Underline:
  boolean; _Size: integer; _center: boolean);
begin
  W.Selection.Font.Bold := _bold;
  W.Selection.Font.italic := _italic;
  W.Selection.Font.StrikeThrough := _StrikeThrough;
  W.Selection.Font.Underline := _Underline;
  W.Selection.Font.Size := _Size;
  if _center = true then
    W.Selection.ParagraphFormat.Alignment := 1;
  W.selection.TypeText(info);
end;