| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с Word [D5, NT4, Win2k]

Alfred ©   (2003-09-09 10:57:00) 

В ниже приведенном примере редактор 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:00) [1]

WordApplication1.Visible := true;

---

Наверх