Discussion :

[muquet]

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+

[portu]

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 ?

[muquet]

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 ...

[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.

[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!

[Laurent Dardenne]

Salut,
utilise se code

Code :

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

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;