Delphi - Word
Como faço para abrir um documento do Word de dentro de um aplicativo escrito em delphi???
Obrigado. :D
Obrigado. :D
Ivo
Curtidas 0
Respostas
Marcus
23/05/2003
Boa Tarde!!!
Fiz uma funcao que abre qualquer aplicativo que possua aplicacao relacionada. (Word, Excel, Acrobat etc)
Mande seu e-mail que eu lhe envio. Nao estou com ela aqui.
Fiz uma funcao que abre qualquer aplicativo que possua aplicacao relacionada. (Word, Excel, Acrobat etc)
Mande seu e-mail que eu lhe envio. Nao estou com ela aqui.
GOSTEI 0
Marcelo.c
23/05/2003
Coloque ComObj no uses
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileOpen(´C:\Texto.DOC´);//Abre o documento
{ Imprime 1 cópia }
MSWord.ActiveDocument.PrintOut(Copies := 1);
ShowMessage(´Aguarde o término da impressão...´);
{ Para salvar... }
MSWord.ActiveDocument.SaveAs(FileName := ´c:\Texto.doc´);
{ Fecha documento }
MSWord.ActiveDocument.Close(SaveChanges := 0);
{ Fecha o Word }
MSWord.Quit;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileOpen(´C:\Texto.DOC´);//Abre o documento
{ Imprime 1 cópia }
MSWord.ActiveDocument.PrintOut(Copies := 1);
ShowMessage(´Aguarde o término da impressão...´);
{ Para salvar... }
MSWord.ActiveDocument.SaveAs(FileName := ´c:\Texto.doc´);
{ Fecha documento }
MSWord.ActiveDocument.Close(SaveChanges := 0);
{ Fecha o Word }
MSWord.Quit;
end;
GOSTEI 0