Word p/ Memo

21/11/2005

1

Alguém sabe como abrir o conteudo de um documento word (.doc) num memo? Tem como fazer isso?!


Responder

Posts

02/12/2005

Peununes

Aí, só para constar, na época ninguém respondeu e acabei descobrindo:

uses
(...)
ComObj;


var
(...)
n : string;
Word, Doc : Variant;


procedure TfrmWordMemo.btnAbrirDOCClick(Sender: TObject);
var
Docs: Variant;
begin
Word := CreateOleObject(´Word.Application´);
Word.Visible := true;
Docs := Word.Documents;
Doc := Docs.Open(´C:\MYD\WordMemo\nome.doc´);
mmWordMemo.Lines.Add(Doc.Content);
//doc.saveas(´C:\MYD\WordMemo\nome.doc´); //Salva o documento
//Doc.PrintOut(false); //Imprime o documento
end;

procedure TfrmWordMemo.btnFecharDOCClick(Sender: TObject);
begin
doc.Close;
Word.quit;
end;

Vai que alguém precisa, né? :)

Grande abraço a todos!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira