Gestion de Word sous Delphi

Version imprimable

04/01/2006, 11h34
muquet

Gestion de Word sous Delphi

Bonjour et bonne années 2006 !

Question sur Word et Delphi :
Comme cela est explique dans le FAQ, je gère une appli qui génère un document Microsoft Word qui a un moment apparait a l'écran.
Et j'ai un problème si l'utilisateur ferme le document Word en faisant Quitter (via le menu ou la croix en haut a droit) sous word :!: .

I a t il une possibilité pour empêcher cela ? cad que l'utilisateur ne puisse plus fermer de lui même word :?:

Merci a+
04/01/2006, 17h46
portu

Citation:

Et j'ai un problème si l'utilisateur ferme le document Word en faisant Quitter (via le menu ou la croix en haut a droit) sous word

Quel problème as tu ?
04/01/2006, 18h29
muquet

explications

C.-à-d. :

Mon appli gère le document : l'ouvre écrit l'enregistre et le ferme.
Mais avant de l'enregistrer, l'utilisateur peut visualiser le document. A ce moment la il peut malheureusement aussi ferme le document. Puis mon appli continue et arrive la fermeture qui ne se passe bien sur mal si le doc Word a déjà été fermé.

Le problème est que je ne sais pas récupérer l'info si mon doc existe toujours on non ...

Un test style:

WordApplication:=GetActiveOleObject('Word.Application');

Répond oui s'il y a une appli Word qui tourne mais sans préciser laquelle ...
04/01/2006, 19h34
portu

Je vois deux méthodes qui pourraient résoudre se problème.

La première consiste à mettre la partie du code de fermeture de WordApplication dans une clause Try Except. (Je ne sais pas ce que celà donne et je ne l'a trouve pas très propre).

La deuxième consiste a générer ton document en arrière plan (Ne pas affichier Word durant le traitement), enregistrer le document, fermer l'instance Word et réouvrir le fichier word par ShellExecute().
Cette méthode durera légerement plus longtemps mais plus fiable sur ce genre de problème.

Maintenant, je ne sais pas si tu peux l'adapter à tes besoins.
05/01/2006, 08h56
muquet

Merci pour la reponse.

Pour l'instant, j'utilise la methode du try except.

mais comme moi non pus je ne la trouve pas tres propre j'en cherche une autre.

je vais donc tenter la seconde methode (pas simple nom plus car dans mon appli, le traitement du nom à l'enregisrement est particulier ...)

merci
et bonne années 2006!

:D

Salut,
utilise se code

Code:

1
2
3
4
5
6
 
procedure TForm1.WordApplication1DocumentBeforeClose(ASender: TObject;
  const Doc: _Document; var Cancel: WordBool);
begin
 Cancel:=True; // Annule la fermeture du document actif
end;