Как вывести Word на экран

← →
Alfred © (2003-09-09 12:44) [0]

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

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;
Заранее благодарен...

← →
WhiteShadow © (2003-09-09 13:27) [1]

WordApplication1.Visible:=True;

Как вывести Word на экран Найти похожие ветки