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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#include <vcl.h>
#pragma hdrstop
#include <utilcls.h> // a ne pas oublier d'inclure
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//#include <utilcls.h> // a ne pas oublier d'inclure
// Cette procedure permet de creer une Instance de Word
// on ouvre Word s'il est charge
// si Word n'est pas charge on le charge
// puis on rend Word visible
Variant vMSWord;
try
{
vMSWord = Variant::GetActiveObject("Word.Application");
}
catch(...)
{
vMSWord = Variant::CreateObject("Word.Application");
}
vMSWord.OlePropertySet("Visible", true); // ("Visible", false)
//Comment ouvrir un nouveau document Word
//****************************************************************************//
// cette procedure permet de creer un nouveau document à partir de l'instance de Word
Variant vWDocuments,vWDocument;
vWDocuments = vMSWord.OlePropertyGet("Documents");
// ici on ouvre le document avec une feuille vierge
vWDocument = vWDocuments.OleFunction("Add");
//Comment ouvrir un document Word existant
//****************************************************************************//
// cette procedure permet de d'ouvrir un document word existant
Variant vFileName, vReadPass, vWDocuments, vWDocument;
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);
//Comment Sauvegarder un nouveau document sous
//****************************************************************************//
// cette procedure permet de sauvegarder le document sous le nom souhaité
Variant vFileName;
vFileName = "c:\\book1.doc";
vWDocument.OleProcedure("Saveas", vFileName);
//Comment sauvegarder un ancien document
//****************************************************************************//
// cette procedure permet de sauvegarder le document
vWDocument.OleProcedure("Save");
//Comment fermer un document
//****************************************************************************//
// procedure FermerDocument
// on ferme le document
Variant vMSWord;
vWDocuments.OleFunction("Close");
// on libere les Variants
vMSWord = Unassigned;
//Comment quitter un documetn Word
//****************************************************************************//
// procedure QuitterDocument
// on quitte le document
Variant vMSWord;
vWDocuments.OleFunction("Quit");
// on libere les Variants
vMSWord = Unassigned;
} |
