Composant TWordApplication bizarre
Bonjour à tous,
Quelqu'un pourrait-il m'aider ? Voilà, avec Delphi 5, j'essaie d'ouvrir un document Word à partir de mon application. J'ai donc installé mon composant TWordApplication et écrit quelques lignes de codes. Le résultat est presque bon dans la mesure où j'arrive à lire mon document mais pour cela deux problèmes que je n'arrive pas à résoudre :
1) il faut que je clique deux fois (?) sur mon bouton.
2) le document s'ouvre réduit (en icône sur la barre des tâches.
- L'autoquit du composant est à true
- Le ConnectKind est à ckRunningOrNew
- et la propriété Onquit est wordApplication1.disconnect;
Voici le code que j'ai écrit :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| procedure TFClients.BtRechClick(Sender: TObject);
Var
DocWord:_Document;
FileName: OleVariant;
Visible: OleVariant;
begin
Wordapplication1.Connect;
wa:= Copy(TbClients.FieldByname('Cli_nom').asstring,1,3);
wa:= 'Documents Word |'+wa+'*.doc';
openDialog2.Filter := wa;
openDialog2.InitialDir:=wchemin+'documents';
if OpenDialog2.Execute then
Begin
try
Visible:=True; // Le serveur est affiché
Filename:= OpenDialog2.FileName;
DocWord:= WordApplication1.Documents.Open(FileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, Visible);
except
MessageDlg('Fichier introuvable...', mtError, [mbOk], 0);
Abort;
end // Except
end; // Try
end; // procédure
end. |
