Работа с Word

← →
Alfred (2003-09-09 10:57) [0]

В ниже приведенном примере редактор Word загружается автоматически с помощью компонент TWordApplication и TWordDocument. Строка в документ также заносится автоматически.
Word в данном случае работает в фоновом режиме и на
экране не отображается.
Вопрос: Как вывести Word на экран, поскольку мне
необходимо заносить в документ c:\zagotovka.doc
необходимые данные вручную, а затем из программы сохранить
файл под другим именем.
Должны быть и совершенно другие решения этой проблемы.
Заранее благодарен.

unit Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, ComCtrls, ExtCtrls, OleCtnrs, Word97, OleServer;

type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
WordApplication1: TWordApplication;
WordDocument1: TWordDocument;
SpeedButton1: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
n: OleVariant;
begin
n := "c:\zagotovka.doc";
WordApplication1.Documents.Open(n,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Selection.TypeText("Привет от старых штиблет");
n := "c:\rezultat.doc";
WordDocument1.SaveAs(n);
WordDocument1.Close;
end;

end.

← →
clickmaker (2003-09-09 12:00) [1]

WordApplication1.Visible := true;

Работа с Word Найти похожие ветки