Создание таблицы в Word_(в определённом месте)

[Janger]

У меня имеется шаблон word-документа, который я заполняю через программу, и уже готовый документ пользователь сохраняет куда ему нужно...
Проблема в том, что у меня не выходит создать таблицу в определённом месте,.. у меня в коде имеется код (1111117), я в начале нахожу этот текст, удаляю и вставляю туда таблицу ....
Но программа никак не хочет работать ...

[FaTaL]

Значит что-то не правильно вставляете. Код показывайте.

[Janger]

procedure TForm1.Button11Click(Sender: TObject);
var
  word: OleVariant;
  table, myrange:variant;
  App: Variant;
begin
  Word := CreateOLEObject('Word.Application');
  Word.Visible := True;
  Word.Documents.Open(ExtractFilePath(Application.ExeName)+'Шаблон.doc');
  Word.Selection.Find.ClearFormatting;
  Word.Selection.Find.Replacement.ClearFormatting;
  //===================================================================
  Word.Selection.Find.Text := '1112';
  Word.Selection.Find.Replacement.Text := mmo1.text;
  {Word.Selection.Find.Forward := true;
  Word.Selection.Find.Wrap := wdFindContinue;
  Word.Selection.Find.Format := false;
  Word.Selection.Find.MatchCase := false;
  Word.Selection.Find.MatchWholeWord := false;
  Word.Selection.Find.MatchWildcards := false;
  Word.Selection.Find.MatchSoundsLike := false;
  Word.Selection.Find.MatchAllWordForms := false;}
  Word.Selection.Find.Execute(Replace:=wdReplaceAll);
  //===================================================================
//  Word.Selection.Find.Text := '1117';
//  Word.Selection.Find.Replacement.Text := '';
//  Word.Selection.Find.Execute(Replace:=wdReplaceAll);

  Word.Selection.Find.Text := '1117';
  Word.ActiveDocument.Tables.Add(Word.Selection.Range, 1, 2);



  //===================================================================
  Word.ActiveDocument.SaveAs(ExtractFilePath(Application.ExeName)+'save.doc');
  Word.ActiveDocument.Close(wdDoNotSaveChanges);
  Word.Quit;
  Word := Unassigned;
end;

=============================

В данном случае, код работает. Но он создаёт таблицу в самом начале, а не на месте '1117' ....