Como fazer para abrir um documento word via delphi
Caros amigos
Preciso saber se alguem tem uma rotina que abra um documento word. Eu sei como criar, mas preciso abrir doc já exixtente.
grato :D
Preciso saber se alguem tem uma rotina que abra um documento word. Eu sei como criar, mas preciso abrir doc já exixtente.
grato :D
Lobo Astuto
Curtidas 0
Respostas
Anonymous
14/02/2003
Me mande seu e-mail e enviarei um exemplo
rvsfreitas@ig.com.br
rvsfreitas@ig.com.br
GOSTEI 0
Anonymous
14/02/2003
8)
CARO AMIGO,
VOCË PODE USAR A FUNÇÃO WINEXEC DO DELPHI, QUE CHAMA OS PROGRAMAS FEITOS PARA WINDOWS.
EX: WinExec(PChar(caminho do documento));
PARA SE INFORMAR MAIS SOBRE ESTA FUNCÇÃO CLIQUE EM F1 EM CIMA DELA, NO DELPHI.
VALEU.
CARO AMIGO,
VOCË PODE USAR A FUNÇÃO WINEXEC DO DELPHI, QUE CHAMA OS PROGRAMAS FEITOS PARA WINDOWS.
EX: WinExec(PChar(caminho do documento));
PARA SE INFORMAR MAIS SOBRE ESTA FUNCÇÃO CLIQUE EM F1 EM CIMA DELA, NO DELPHI.
VALEU.
GOSTEI 0
Lobo Astuto
14/02/2003
Não funcionou
Eu fiz assim:
procedure TForm1.Button3Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord.AppShow;
WinExec(PChar(c:\meusdocumentos\aviso.doc));
end;
end.
mensagens de erro:
[Error] senha.pas(101): Undeclared identifier: ´c´
[Error] senha.pas(101): Illegal character in input file: ´\´ ($5C)
Não consegui localizar o help desta função
:D
Eu fiz assim:
procedure TForm1.Button3Click(Sender: TObject);
var
MSWord: Variant;
begin
MSWord.AppShow;
WinExec(PChar(c:\meusdocumentos\aviso.doc));
end;
end.
mensagens de erro:
[Error] senha.pas(101): Undeclared identifier: ´c´
[Error] senha.pas(101): Illegal character in input file: ´\´ ($5C)
Não consegui localizar o help desta função
:D
GOSTEI 0
Manoeljr
14/02/2003
Baixe este programa exemplo onde mostro várias maneiras de fazer oque vc quer. http://www.napoles.hpg.ig.com.br/download/WINAPI.zip :wink:
GOSTEI 0
Sfdico
14/02/2003
pode ser assim:
procedure TForm2.Button2Click(Sender: TObject);
var
msword: variant;
begin
msword:= CreateOleObject (´Word.Basic´);
msword.appshow;
msword.fileopen(´C:\A\cnd.doc´);// endereço e nome do arquivo a abrir
end;
procedure TForm2.Button2Click(Sender: TObject);
var
msword: variant;
begin
msword:= CreateOleObject (´Word.Basic´);
msword.appshow;
msword.fileopen(´C:\A\cnd.doc´);// endereço e nome do arquivo a abrir
end;
GOSTEI 0