Discussion :

[gmc]

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 :

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

[anapurna]

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

[gmc]

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 :

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

[Pierre Castelain]

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.

[gmc]

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

[anapurna]

salut


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

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

[gmc]

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 !

[Laurent Dardenne]

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

[gmc]

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

[Laurent Dardenne]

Merci encore

, de rien.

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.