Pilotage OLE de Word à partir de Borland C++ Builder

Ce document a pour seul but de présenter une façon simple de piloter Word, en restant indépendant des composants de BCB.
Le code a été écrit et testé avec Borland C++ Builder 6.0 Enterprise anglais et Word 2000 français.

Les commentaires au code sont minimaux, ceci n'étant pas une explication du fonctionnement de Word, mais simplement l'interfaçage avec C++ Builder et le code étant, je pense, explicite par lui-même.

L'utilisation du Variant est quasi générale. Pour rappel, le type Variant est un type de variable qui a la particularité de pouvoir ne pas être déterminé au moment de la compilation, et même de changer en cours d'exécution du programme. Son plus grand intérêt, à mon sens, est qu'il peut aussi contenir une interface vers un objet OLE et donner accès aux propriétés, procédures et fonctions de celui-ci.

La comparaison avec le pilotage d'Excel permet de constater qu'à l'exception des noms de collections et d'objets, les techniques sont identiques, à très peu de choses près.

Ajouter la ligne suivante dans les include :

#include <utilcls.h>

I-A. Ouvrir une nouvelle instance▲

Variant vMSWord;

vMSWord = Variant::CreateObject("Word.Application");
vMSWord.OlePropertySet("Visible", true);

I-B. Se connecter à une instance existante▲

Variant vMSWord;

vMSWord = Variant::GetActiveObject("Word.Application");
vMSWord.OlePropertySet("Visible", true);

try {
    vMSWord = Variant::GetActiveObject("Word.Application");
} catch(...) {
    vMSWord = Variant::CreateObject("Word.Application");
}

vMSWord.OleFunction("Quit");
vMSWord = Unassigned;

Positionner vMSWord à Unassigned permet de libérer le Variant.

Variant vWDocument, vWDocuments;

vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Add");

Word tient à jour une liste de tous les documents ouverts, dans une collection appelée Documents.

Ouvrir un nouveau document revient simplement à ajouter un nouvel élément à cette collection. La fonction Add renvoie un Variant faisant référence au nouveau document.

IV-A. Ouvrir un document simple▲

Variant vFileName, vWDocuments, vWDocument;

vFileName = "c:\\Home\\Sources\\Cpp\\Word\\Document1.doc";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName);

IV-B. Ouvrir un document en lecture seule▲

Variant vFileName, vWDocuments, vWDocument, vReadOnly, vLink;

vFileName = "c:\\Home\\Sources\\Cpp\\Word\\Document1.doc";
vLink = Unassigned;
vReadOnly = true;
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly);

IV-C. Ouvrir un document protégé par un mot de passe▲

Variant vFileName, vWDocuments, vWDocument, vReadOnly, vLink, vFormat, vReadPass;

vFileName = "c:\\Home\\Sources\\Cpp\\Word\\Document1.doc";
vLink = Unassigned;
vReadOnly = false;
vFormat = Unassigned;
vReadPass = "MotDePasse";
vWDocuments = vMSWord.OlePropertyGet("Documents");
vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat, vReadPass);

V-A. Enregistrer le classeur sous le même nom▲

                    vWDocument.OleProcedure("Save");

V-B. Enregistrer le document sous un autre nom▲

Variant vFileName;

vFileName = "c:\\Home\\Sources\\Cpp\\Word\\Document1.doc";
vWDocument.OleProcedure("Saveas", vFileName);

Variant vSaveChanges, vFileName;

vSaveChanges = Unassigned;
vFileName = "c:\\Home\\Sources\\Cpp\\Word\\Document1.doc";
vWDocument.OleFunction("Close", vSaveChanges);

Le 1er paramètre de la fonction Close permet de spécifier si les modifications sont enregistrées

• true : les modifications sont enregistrées ;
• false : les modifications ne sont pas enrgistrées ;
• Unassigned : demande à l'utilisateur.

Le 2e paramètre de la fonction Close permet de spécifier le nom sous lequel le classeur sera enregistré.

Ces deux paramètres sont facultatifs.

VII-A. Accéder aux signets▲

Variant vBookMarks, vWDocument, vBookMark;

vBookMarks = vWDocument.OlePropertyGet("BookMarks");
if (vBookMarks.OleFunction("Exists", "signet1")) {
    vBookMark = vBookMarks.OleFunction("Item", "signet1");
    vBookMark.OleFunction("Select");
    // ...
}

VII-B. Insérer le texte▲

Variant vBookMark, vContent;

vContent = vBookMark.OlePropertyGet("Range");
vContent.OleFunction("InsertAfter", "texte");

Le code qui suit permet de lister tous les signets contenus dans un document Word et de les afficher dans un ListBox.

Variant vBookMark, vBookMarks, vContent;

int iCount;
AnsiString aBookName;
vBookMarks = vWDocument.OlePropertyGet("BookMarks");
iCount = vBookMarks.OlePropertyGet("Count");
for (int i=1; i <= iCount; i++) {
    vBookMark = vBookMarks.OleFunction("Item", i);
    aBookName = vBookMark.OlePropertyGet("Name");
    ListBox1->Items->Add(aBookName);
    vBookMark = Unassigned;
}