FAQ C++ BuilderConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Variant vFileName, vLink, vReadOnly, vFormat, vReadPass, vWDocuments, vWDocument; 
Variant vMSWord; 
  
vMSWord = Variant::CreateObject("Word.Application"); 
  
// ce code doit impérativement se trouver ici 
vMSWord.OlePropertyGet("WordBasic").OleProcedure("DisableAutoMacros"); 
// ici on a désactive la macro qui s'exécute à l'ouverture 
  
vMSWord.OlePropertySet("Visible", true); // ("Visible", false) 
vFileName = "c:\\book1.doc"; 
vLink = Unassigned; 
vReadOnly = false; // lecture seule 
vFormat = Unassigned; 
vReadPass = "MotDePasse"; // mot de passe du document 
vWDocuments = vMSWord.OlePropertyGet("Documents"); 
// ici on charge un document sur la feuille 
vWDocument = vWDocuments.OleFunction("Open", vFileName, vLink, vReadOnly, vFormat, vReadPass);

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Variant VBComp; 
// on crée un module pour du code VB 
VBComp =  vWordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Add", 1); 
  
// on renomme le module sans espace dans le nom 
VBComp.OlePropertySet("Name", "MyModule"); 
  
// on écrit la macro dans le module créé 
VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", 1, "Sub laMacro()"); 
VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", 2, "ActiveDocument.Content.Text = \"Coucou\" "); 
VBComp.OlePropertyGet("CodeModule").OleProcedure("InsertLines", 3, "End Sub"); 
// on l'exécute 
vMSWord.OleProcedure("Run", "laMacro"); 
  
// on efface le module 
vWordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents").OleFunction("Remove", VBComp); 
// ici il n'y a plus aucune trace de notre macro

vMSWord.OleProcedure("Run", "laMacro");

1
2
3
Sub laMacro() 
ActiveDocument.Content.Text = "Coucou" 
End Sub

1
2
3
4
5
6
7
8
9
10
Variant Appli, WordDoc, WordDocs, VBComp, vFileName; 
  
Appli = Variant::GetActiveObject("Word.Application"); 
vFileName = "C:\\book1.doc"; 
WordDocs = Appli.OlePropertyGet("Documents"); 
WordDoc = WordDocs.OleFunction("Open", vFileName); 
  
VBComp =  WordDoc.OlePropertyGet("VBProject").OlePropertyGet("VBComponents"); 
// on insère un code VB à partir d'un fichier 
VBComp.OleProcedure("Import", "C:\\macro_essai.txt");

1
2
// on supprime la macro 
VBComp.OleFunction("Remove", VBComp.OleFunction("Item", "Module1"));