Word p/ Memo
21/11/2005
0
Alguém sabe como abrir o conteudo de um documento word (.doc) num memo? Tem como fazer isso?!
Peununes
Curtir tópico
+ 0
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!
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
Clique aqui para fazer login e interagir na Comunidade :)