FAQ C++ BuilderConsultez toutes les FAQ

1
2
3
4
// Il faut passer par l'instance de Word et non par celle du document 
// le texte provient d'un TEdit 
  
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(Edit1->Text));

1
2
3
4
// Il faut passer par l'instance de Word et non par celle du document 
// le texte provient d'un TMemo 
  
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(Memo1->Lines->Text));

1
2
3
4
// Il faut passer par l'instance de Word et non par celle du document 
// le texte provient d'un TListBox, ici on lit la première ligne 
  
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(ListBox1->Items->Strings[0]));

1
2
3
4
// Il faut passer par l'instance de Word et non par celle du document 
// le texte provient d'un TComboBox, ici on lit la ligne sélectionnée 
  
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(ComboBox1->Text));

1
2
3
4
// Il faut passer par l'instance de Word et non par celle du document 
// le texte provient d'un TRichEdit 
  
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(RichEdit1->Lines->Text));

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
// le texte provient d'un TStringGrid 
  
{ 
  
    vMSWord.OlePropertySet("ScreenUpdating", false); // on empêche le rafraîchissement écran afin de gagner en rapidité 
  
    int cmptRows = Form1->StringGrid1->RowCount; 
    int cmptColumns = Form1->StringGrid1->ColCount; 
    String chaine; 
    Variant vTable; 
  
    vWDocument.OlePropertyGet("Tables").OleFunction("Add", vMSWord.OlePropertyGet("Selection"). 
    OlePropertyGet("Range"), cmptRows, cmptColumns, 1, 0); 
  
    vTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1"); 
  
    for (int lignes = 0; lignes < cmptRows; lignes++) 
    { 
        for (int colonnes = 0; colonnes < cmptColumns; colonnes++) 
        { 
            chaine = (StringGrid1->Cells[colonnes][lignes]); 
            vTable.OleFunction("Cell", lignes + 1, colonnes + 1). 
            OlePropertyGet("Range").OleFunction("InsertAfter", WideString(chaine)); 
        } 
    } 
  
    vMSWord.OlePropertySet("ScreenUpdating", true); // on rafraîchit l'écran 
}

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
// déclaration des Variants 
Variant vMSword, vTable, vCell, vDocument, vDocuments; 
  
// si Word est ouvert on l'active, sinon on l'ouvre 
try 
{ 
    vMSword = Variant::GetActiveObject("Word.Application"); 
} 
catch(...) 
{ 
    vMSword = Variant::CreateObject("Word.Application"); 
} 
// on rend l'application Word visible 
vMSword.OlePropertySet("Visible", true); 
// on crée une page 
vMSword.OlePropertyGet("Documents").OleFunction("Add"); 
// la nouvelle page est sélectionnée 
Variant vSelect = vMSword.OlePropertyGet("Selection"); 
  
// on sélectionne la police du TDBgrid 
vSelect.OlePropertyGet("Font").OlePropertySet("Size", GridCustomers->Font->Size); 
vSelect.OlePropertyGet("Font").OlePropertySet("Name", GridCustomers->Font->Name.c_str()); 
// on récupère le nombre de lignes 
int nRowCount(GridCustomers->DataSource->DataSet->RecordCount + 1); 
  
// on récupère le nombre de colonnes 
int nColCount(GridCustomers->Columns->Count); 
  
// on crée un tableau avec le nombre de lignes et de colonnes que l'on a récupérées 
vMSword.OlePropertyGet("ActiveDocument").OlePropertyGet("Tables").OleProcedure("Add", 
    vSelect.OlePropertyGet("Range"), nRowCount, nColCount, 1, // wdWord9TableBehavior 
    0); // wdAutoFitFixed 
//  
vTable = vMSword.OlePropertyGet("ActiveDocument"). 
OleFunction("Range").OlePropertyGet("Tables").OleFunction("Item", 1); 
//  
for(int i=0; i<nColCount; i++) 
{ 
    int nColWidth = GridCustomers->Columns->Items[i]->Width; 
    vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1) 
    .OlePropertySet("PreferredWidthType", 3); // wdPreferredWidthPoints 
    vTable.OlePropertyGet("Columns").OleFunction("Item", i + 1) 
    .OlePropertySet("PreferredWidth", nColWidth); 
} 
// ici on remplit le tableau Word avec le TDBGrid 
for(int j=0; j<GridCustomers->Columns->Count; j++) 
{ 
    vCell = vTable.OleFunction("Cell", 1, j + 1); 
    vCell.OlePropertySet("Range", GridCustomers->Columns->Items[j]->FieldName.c_str()); 
    // wdColorGray125 
    vCell.OlePropertyGet("Shading").OlePropertySet("BackgroundPatternColor", 14737632); 
} 
// 
GridCustomers->DataSource->DataSet->First(); 
for(int i=0; i<nRowCount; i++) 
{ 
    // 
    for(int j=0; j<GridCustomers->Columns->Count; j++) 
    { 
        vCell = vTable.OleFunction("Cell", i + 2, j + 1); 
        vCell.OlePropertySet("Range", 
        GridCustomers->DataSource->DataSet->FieldByName( 
        GridCustomers->Columns->Items[j]->FieldName)->AsString.c_str()); 
    } 
    GridCustomers->DataSource->DataSet->Next(); 
}