// 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));

    // 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));

    // 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]));

    // 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));

    // 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));

    // 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
    }

    // 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();
    }