FAQ DelphiConsultez toutes les FAQ

La version des composants d'Office est choisie à l'installation de Delphi. Il est cependant possible de changer cette version par la suite.

Dans le menu "Composant-Installer des paquets"
Retirer le paquet "..\Delphi\Bin\dclaxserver50.bpl" ( Word97 )puis ajouter le paquet suivant "..\Delphi\Bin\dcloffice2k50.bpl". (Office 2000). Enfin sauvegarder les modifications.

Notes :

• Les noms de fichier ( dclaxserver50.bpl et dcloffice2k50.bpl) peuvent être différent selon les versions de Delphi. Ici il s'agit de la version 5.
• La version 7 de Delphi permet d'utiliser les composants Office XP, le paquet à installer est le suivant : ..\Delphi\Bin\dclofficexp70.bpl
• Pour utiliser Word 2003 vous devez désinstaller le package courant d'Office puis importer la librairie de type suivante :
  C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB.
  

À la différence d'une macro VBA qui fonctionne sur à peu près toutes les versions de Word depuis 97,il n'en est pas de même pour le pilotage d'application via OLE Automation.

Certains exemples fonctionnent avec une seule version de Word ou d'Excel. Dès que l'on change de version, le nombre de paramètres ou le nom de la fonction change.
Exemple : OpenDataSource exige 13 paramètres avec Word97, 15 avec 2000 et 17 avec XP.

N'hésiter donc pas à consulter l'aide en ligne d'Office avant de poster sur le Forum Delphi.

La méthode GetActiveOleObject renvoie une référence à l'interface IDispatch de l'objet actif pour la classe indiquée par ClassName. ClassName est l'ID de programmation de la classe de l'objet actif dans la table des objets OLE actifs.
GetActiveOleObject permet d'accéder à cette table. Cette table permet donc de déterminer si un objet d'une classe donnée est en cours d'exécution ou non.

La méthode OleCheck, appelée par GetActiveOleObject, déclenche une exception EOleSysError si aucun objet de la classe spécifiée existe.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var WordApplication:Variant; 
    AppExist :Boolean; 
    Visible: OleVariant; 
    FileName: OleVariant; 
  
Begin 
 AppExist:=True; 
 Try 
  WordApplication:=GetActiveOleObject('Word.Application'); // Ou Outlook.Application 
 except 
  on EOleSysError do 
  AppExist:=False; 
 end; 
 if AppExist 
  then 
   begin 
    ShowMessage('Word est en cours d''exécution.'); 
    Visible:=True; 
    FileName:='Test1.Doc'; 
    WordApplication.Documents.Add(EmptyParam,EmptyParam,EmptyParam,Visible); 
   end 
  else ShowMessage('Word n''est pas en cours d''exécution.');

Vous trouverez de l'aide sur ces différentes adresses du site de Microsoft :

• Aide sur l'Automation d'Office : Office Application Automation
• Référence des objets de Word : Object model reference (Word 2013 developer reference)
• Référence des objets d'Excel : Object model reference (Excel 2013 developer reference)
• Lien pour Microsoft Office 2000 sur la MSDN :
  Microsoft Office 2000 Language Reference
  

• Word 2003 : C:\Program Files\Microsoft Office\OFFICE11\1036\VBAWD10.CHM
• Excel 2003 : C:\Program Files\Microsoft Office\OFFICE11\1036\VBAXL10.CHM
• Word 2000 : C:\Program Files\Microsoft Office\Office\1036\VBAWRD9.CHM
• Excel 2000 : C:\Program Files\Microsoft Office\Office\1036\VBAXL9.CHM
• Word 97 : C:\Program Files\Microsoft Office\Office\1036\VBAWRD8.HLP
• Excel 97 : C:\Program Files\Microsoft Office\Office\1036\VBAXL8.CHM