Заполнение шаблона Word по меткам ,?

[Paskal1]

Всем привет!
Ребята такой вопрос накопал код для заполнения документа MSWorD по меткам

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, WordXP, ComObj;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    WordApplication1: TWordApplication;
    WordDocument1: TWordDocument;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, doc :Variant;
begin
WordApplication1.Connect;
try
WordApp:=CreateOleObject('WordApplication');//
doc:=WordApp.Documents.open('1.doc');
WordApp.Selection.GoTo(-1,,,'paskal1');//переход к закладке
WordApp.Selection.TypeText(Edit1.Text);//вставляем то, что нам надо
except
end;
end;
end.

У меня на форме стоит 1кнопка, 1єдит и WordApplication1
после нажатия кнопки вылазит следующий баг

Подскажите плиз может кто сталкивался,,,,
Заранее примного благодарен

[Paskal1]

Проблема решена!
моя проблема была в том что

WordApp:=CreateOleObject('WordApplication');

а правильно так

WordApp:=CreateOleObject('Word.Application');

[bis24or]

Здраствуйте.
передо мной стоит задача: есть текст (шаблон, докумет MSWord) с пустыми местами ("ячейками" типа как в анкете). Мне надо, чтоб в эти пустые места из Эдитов всталялись слова (причем в соответствующую пустоту должно вставать слово из соответствующего эдита). можете подсказать как это осуществить?