Piloter Word 2000 et Word XP (TWordApplication)

Bonjour,

Je tente de piloter Word pour générer un document.
J'utilise une methode mais apparement ca ne marche que sous Word XP et pas sur Word 2000.

Suis-je obliger d'utiliser OLE pour que ca soit compatible sur les 2 version de Word ?

Voici le code qui marche sous Word XP et pas sous Word 2000 :

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

unit Unit1;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Forms, OleServer, StdCtrls, Controls, Buttons, WordXP;   type TForm1 = class(TForm) wordapp: TWordApplication; Label1: TLabel; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); end;   var Form1: TForm1;   implementation   {$R *.dfm}     procedure TForm1.BitBtn1Click(Sender: TObject); begin   try wordapp.Connect; except Label1.Caption := 'Erreur : Word n''est pas installé !'; Abort; end;   wordapp.Visible := true;     end;   end.

---

Merci de votre aide !

salut


si tu desire uniquement ouvrir un document ole n'est pas necessaire
par contre si tu veut modifier les donnée de facon dynamique le plus efficace est d'utilise ole

qu'elle est le type d'erreur que tu obtient entre les deux version
d'apres ce que je vois tu essai de rendre word visible sans document
je croit que c'est ici que le probleme intervient


@+ Phil

Merci de ta réponse.

En fait, avec Word XP, tout marche bien, ca ouvre word.
Alors qu'avec Word 2000, ca fait planter Word, rien ne s affiche, je suis obligé par la suite à killer le processus.

voici une modification comme tu me l a suggérer, maintenant ca ouvre un document vide, mais toujours le meme probleme :
ca marche sous XP
ca plante sous 2000 !

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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

v unit Unit1;   interface   uses Windows, Messages, SysUtils, Classes, Graphics, Forms,Variants, OleServer, StdCtrls, Controls, Buttons, WordXP;   type TForm1 = class(TForm) wordapp: TWordApplication; Label1: TLabel; BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); end;   var Form1: TForm1;   implementation   {$R *.dfm}     procedure TForm1.BitBtn1Click(Sender: TObject); var DocWord:_document;   begin   try wordapp.Connect; except Label1.Caption := 'Erreur : Word n''est pas installé !'; Abort; end;   wordapp.Visible := true;   DocWord:=wordapp.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);   end;   end.

---

Change l'unité utilisé dans la clause uses. Remplace WordXP par Word2000 ou, encore mieux, par Word97. Les différentes versions de Word offrent une compatibilité ascendante entre elles.
Il te faut spécifier l'unité correspondant à la version minimale qui t'es nécessaire. Vu ce que tu veux faire, Word97 suffit largement.

ca ne marche pas.

TWordApplication viens de la libraire WordXP, lorsque je supprime dans les uses WordXP, il reviens automatiquement.

J'ai rajouté Word97 et/ou Word2000, mais rien n'y fait, cela fait toujours planter Word.

Une autre idée ? ou cela ne marchera pas sous Word2000 ?

Je tiens à préciser que lorsque j'auré réussit cela, je ferais des truc + compliké, style, changement de signets etc...

salut


le plus simple alors serait de gerer toi meme les variant utilise par OLE
et ne pas utilisé le TWordapplication

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 27 28 29

procedure TMyClassWord.OpenWordApp; begin MsWord := Unassigned ; TemplateWindows := Unassigned ; DataWindows := Unassigned ; try MsWord := GetActiveOleObject('Word.Application'); except CreateAppWord ; end; OpenDoc; end; {------------------------------------------------------------------------------} procedure TMyClassWord.OpenDoc; begin MsWord.WindowState := wdWindowStateMaximize ; MsWord.Visible := true; end; {------------------------------------------------------------------------------} procedure TMyClassWord.CreateAppWord ; begin try MsWord := Unassigned; MsWord := CreateOleObject(WordAppCLassName); except raise Exception.Create('Impossible de creer un document word. '); end; end; {------------------------------------------------------------------------------}

---

@+ Phil

re merci de ta réponse, en fait je conné cette méthode et ca marche bien par OLE, mé le truc, pour tout te dire, je reprend une application qui est toute faite, et ki utilise la 1ere methode que j'ai évoqué.

Donc, je me demandé, au lieu de tout redévelopper, si ca ne marcher vraiment pas sous Word2000.

Je voudrai en être sûr !

Et en essayant ceci ?
http://delphi.developpez.com/faq/?pa...echangeversion

O la la !!! ca marche !!!
Incroyable !! je pensais pas m'en sortir !!!
C'est super cool !!

Merci à Anapurna, Pierre Castelain pour leur aide et Laurent Dardenne pour la solution finale.

Donc, pour résumer : Pour pouvoir utiliser un méthode de pilotage de Word XP et Word 2000, il faut désactiver les composants installés par défaut sur Delphi 7 à savoir :

le package : "Microsoft Office XP Sample Automation Server Wrapper Components" (c:\delphi7\bin\dclofficexp70.bpl)

avec le menu "component > install pakages..."

et faire : "Ajouter (add) et choisir le package : c:\delphi7\bin\dcloffice2k70.bpl) qui est : "Microsoft Office 2000 Sample Automation Server Wrapper Components"

Merci encore, et je félicite les administrateurs et modérateurs de "développez.com" qui est pour moi le meilleur endroit pour apprendre à développer.

Merci !! :D

Citation:

---

Envoyé par gmc

Merci encore

---

:P , de rien.

Citation:

---

Envoyé par gmc

je félicite les administrateurs et modérateurs de "développez.com"

---

Mais aussi les membres du forum qui par leurs solutions proposées permettent d'enrichir la FAQ.