Discussion :

[platoon64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[BuzzLeclaire]

Salut,

Tu utilise quel word.pas ? le XP ou 2000 ?
Avec le Word XP je fais cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
// ...
   // le document
  DocFilename :='C:\Essai\MailingPlus.dot';

   // N'affiche pas le document
  WordApplication1.Visible := False; // <== a toi de voir

   // On ouvre le Modéle de document concerné
  DocWord:=WordApplication1.Documents.Open(DocFileName,EmptyParam,EmptyParam,
                                           EmptyParam,EmptyParam,
                                           EmptyParam,EmptyParam,
                                           EmptyParam,EmptyParam,
                                           EmptyParam,EmptyParam,
                                           Visible, EmptyParam,EmptyParam, EmptyParam);
// ...

bye