Error: Ao abrir arquivo word com o WordApplication
08/01/2006
0
Gostaria muito que os amigos me ajudassem a descobrir como soluciono esse erro neste código,
pois quando compilo dar erro na linha (“WordApplication1.Documents.Open(oleArquivo, EmptyParam, ReadOny, EmptyParam, EmptyParam.....”)
A verdade é que quando usava WordApplication no D6 funcionava, agora que passei esse mesmo código para D7 depois de um tempo, começou dar esse erro.
[b:a41f7bf18a]procedure TFrmCadastroMinuta.BitBtnVerClick(Sender: TObject);
Var oleArquivo, ReadOny: OleVariant;
begin
oleArquivo := EdV_M.Text; // edit que recebe o caminho do arquivo
ReadOny := True;
WordApplication1.Documents.Open(oleArquivo, EmptyParam, ReadOny,
EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam);
WordApplication1.WindowState := wdWindowStatemaximize;
WordApplication1.Caption := ´SISTEMA DE CONTROLE DE ATOS´;
WordApplication1.Visible := True;
end;[/b:a41f7bf18a]
Jrcosmoluis
Posts
08/01/2006
Jrcosmoluis
É bom lembrar que antes no USES era Word2000 e agora é WordXP (não sei se isso tem algo haver). Será que posso usar esse mesmo código pra abrir o WordXP?
09/01/2006
Marcio.theis
http://forum.clubedelphi.net/viewtopic.php?t=48953
http://forum.clubedelphi.net/viewtopic.php?t=46813
13/01/2006
Jrcosmoluis
Obrigado pela sugestão conseguir, com sua ajuda, a resolver o problema do código. Para funcionar só acrescentei mais ´EmptyParam´ até que compilou e executei o programa, o qual esta funcionando sem problema agora.
Clique aqui para fazer login e interagir na Comunidade :)