[Paskal]

Всем прет!
Накопал здесь примерчик как можно заполнять шаблон MSWord-а по меткам но пишет ошибочку не описан индетификатор

Код:

1	GetActiveOleObject

и

Код:

1	CreateOleObject

Подскажите пожалуйста как их описать в раздел переменных var .
И второй вопросик в данной ситуации нужно ли подключатся к серверу MSWord
WordApplication1.Connect;
WordDocument1.Connect;

Пример заполнения-->

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

MSWord:Variant; What,Which,Count,Name:OLEVariant; begin try  MsWord := GetActiveOleObject('Word.Application');  except  try  MsWord := CreateOleObject('Word.Application');   except   raise Exception.Create('Ошибка запуска Word');   end;  end;  try   MSWord.Documents.Open(Имя_файла_шаблона);   except   ShowMessage('Ошибка при попытке WORD загрузить шаблон!');   exit;   end;   What:=-1;   Which:=unAssigned;   Count:=unAssigned;       Name:='Имя_метки';   MsWord.Selection.GoTo(What,Which,Count,Name);   MsWord.selection.TypeText('Текст_метки');       MsWord.Visible:=True;

[Gman]

Держи простенький пример как это делается, по аналогии сможешь сделать свой код.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var WordApp, doc,sel_,cell:Variant;  p,ChisloD:string; i:integer; fil:OLEVariant; Cel1,Cel2:Variant; begin try  WordApp:=CreateOleObject('Word.Application');//  doc:=WordApp.Documents.open('E:\Borland Studio Projects\ww\Shablon PasportK.doc');    WordApp.Selection.GoTo(-1,,,'Inv');//переход к закладке  WordApp.Selection.TypeText(Edit1.Text);//вставляем то, что нам надо except end;     end;

[Paskal]

Ребята так и не ответили что мне делать с CreateOleObject
Delphi пишет что он не задиклорирован (нет описания). под каким типом его описывать,,,???

[Paskal]

C CreateOleObject я сам разобрался нужно всего в раздел модулей добавить модуль ComObj
НУ а теперь на счет

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var WordApp, doc,sel_,cell:Variant;  p,ChisloD:string; i:integer; fil:OLEVariant; Cel1,Cel2:Variant; begin try  WordApp:=CreateOleObject('Word.Application');//  doc:=WordApp.Documents.open('E:\Borland Studio Projects\ww\Shablon PasportK.doc');    WordApp.Selection.GoTo(-1,,,'Inv');//переход к закладке  WordApp.Selection.TypeText(Edit1.Text);//вставляем то, что нам надо except end;     end;

Я так понимаю в этом WordApp.Selection.GoTo(-1,,,'Inv');
Inv это метка из документа. Только помогите ламеру как эту метку вставить в мой шаблон и что такое -1
Пожалуйста помогите разобраться

[Gman]

Чтобы вставить метку надо: Установить курсор в нужную точку на листе Word - меню Вставка -закладка - в верхнем окне введи имя закладки - нажми добавить, и всё.

[Paskal]

Gmen спасибо !
Но у меня еще вопрос после нажатия кнопки выскакивает ошибочка

на строке

Код:

1	doc:=WordApp.Documents.open('1.doc');

Для понятия вот код программы

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

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
подскажите плиз как устранить єту ошибку, может какой то модуль не подключен.
Заранее спасибо и прошу прощение за столь много вопросов

[Paskal]

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

Код:

1	WordApp:=CreateOleObject('WordApplication');

а правильно

Код:

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

Отдельная благодарность Sergiuz