Gmen спасибо !
Но у меня еще вопрос после нажатия кнопки выскакивает ошибочка
на строке
Код:
doc:=WordApp.Documents.open('1.doc');
Для понятия вот код программы
Код:
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
подскажите плиз как устранить єту ошибку, может какой то модуль не подключен.
Заранее спасибо и прошу прощение за столь много вопросов