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 :
Merci de votre aide !
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.
Partager