Скачать: CL | DM;

Как вывести 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.013 c