Alguém sabe dizer se o código abaixo funciona em qualquer
sitema operacional e qualquer word
Var
MSWord: Variant;
begin
Caminho:= ExtractFilePath(Application.ExeName)+'\Arquivos de Texto\Logaritmos';
Try
MSWord:= CreateOleObject('Word.basic');
MSWord.AppShow;
MsWord.fileopen(Caminho);
Except
MessageBox(frmPrincipal.Handle,'O arquivo não pode ser aberto. Verifique se o WORD está instalado no seu computador ou se o arquivo não foi movido.','OPERAÇÃO NÃO EFETUADA',MB_ICONSTOP);
end;
Para mim funcionou com XP + Word 2003
Quando testei Windows 98 + Word XP nada aconteceu.
Pergunta
Paulo Nobre
Alguém sabe dizer se o código abaixo funciona em qualquer
sitema operacional e qualquer word
Var
MSWord: Variant;
begin
Caminho:= ExtractFilePath(Application.ExeName)+'\Arquivos de Texto\Logaritmos';
Try
MSWord:= CreateOleObject('Word.basic');
MSWord.AppShow;
MsWord.fileopen(Caminho);
Except
MessageBox(frmPrincipal.Handle,'O arquivo não pode ser aberto. Verifique se o WORD está instalado no seu computador ou se o arquivo não foi movido.','OPERAÇÃO NÃO EFETUADA',MB_ICONSTOP);
end;
Para mim funcionou com XP + Word 2003
Quando testei Windows 98 + Word XP nada aconteceu.
Faz sentido??
Paulo Nobre
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.