открытие Word

[Влажимир]

Мне нужно, чтобы при нажатие кнопки открывался документ, в котором пользователь будет контролировать введенные данные, отправлять на печать и закрывать.

WordApplication1.Connect;
WordApplication1.Documents.Open(Shablon,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam, EmptyParam,EmptyParam);
WordApplication1.Visible:=true;

Но после закрытия документа пользователем, кнопка второй раз не работает - недоступен сервер. Как сделать правильно?

[Stilet]

Connect делай один раз.

[Влажимир]

Один раз Connect, значит он помещается в FormCreate. Всё равно сервер RPC недоступен при втором нажатие.

[mutabor]

А может дисконнект а потом опять коннект? (Чисто предположение)

[Stilet]

Я лично в своих делишках вообще ставил AutoConnect
Вот пример:

unit Unit1;

interface

uses         crtfox,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, Word2000, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    Button2: TButton;
    Panel1: TPanel;
    Button3: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WordDocument1Open(Sender: TObject);
    procedure WordApplication1WindowActivate(Sender: TObject; var Doc,
      Wn: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   var named,ro:OleVariant;   MyWind:Window;
   MyWindRec:WindRec; NameCap:string;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WordDocument1.Close;
WordApplication1.Quit;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
named :='c:\temp\q.doc';
ro:=true;
WordApplication1.Visible:=true;
NameCap:=TimeToStr(time)+inttostr(random(1000));
WordApplication1.Documents.Open(named,EmptyParam,ro,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.ActiveWindow.Caption:=NameCap;
MyWind:=WordApplication1.ActiveWindow;
nop;
{ WordDocument1.Application.Visible :=true;

WordDocument1.Application.Documents.Open(named,EmptyParam,ro,EmptyParam,EmptyParam,
 EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
}
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mywind.Close(EmptyParam,EmptyParam);

end;

procedure TForm1.WordApplication1WindowActivate(Sender: TObject; var Doc,
  Wn: OleVariant);
begin
  nop;
end;

end.

Никакого коннекта - Сервер не падал.

[Влажимир]

ничего не помогло

[mihali4]

Бросьте вы эти сервера. Вот я набросал вам абсолютно рабочий примерчик без них:

procedure Tfmain.Button2Click(Sender: TObject);
var msword: olevariant;
begin
try
msword := createoleobject('word.application');
msword.visible := True;
msword.documents.open('c:\test.doc');
//...начало вашей обработки
ShowMessage('aaa');
//...конец обработки
finally
msword.quit;
end;
end;

Нажимайте кнопку хоть до посинения...

[Stilet]

Бросьте вы эти сервера.

Эх. класный способ, вот только в дизайне не удобный для тех кто плохо знает методы Ворда )