Discussion :

[akeix]

Bonjour,

J'utilise OLE pour piloter Word 2003 et donc créer des documents.

Je me suis largement appuyer sur la FAQ C++ Builder (en passant : merci aux différents rédacteurs).

J'ai plusieurs questions sur les tableaux :

Dans mon document, je crée donc un tableau.

Comment puis-je faire pour indiquer que la première ligne doit ce répéter en debut de tableau lors d'un changement de table ("Répeter en haut de chaque page en tant que ligne d'entête") ?

Comment interdire le fractionnement des lignes sur plusieurs pages ?

Dans une cellule, j'écris deux paragraphes. Comment puis-je faire pour que ces deux paragraphes aient un style différent ?


Merci d'avance pour vos réponses.

Cordialement,

Jérôme

[akeix]

Re-Bonjour,

J'ai trouvé les réponses :

vMSWord : Instance de Word
vWDocument : Instance du document

Comment répéter la première ligne d'un tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OlePropertyGet("Rows").OleFunction("Item", "1").OlePropertySet("HeadindFormat", true);

Comment interdire le fractionnement des lignes sur plusieurs pages :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OlePropertyGet("Rows").OlePropertySet("AllowBreakAcrossPages", false);

Enfin, comment écrire des paragraphes avec différents styles dans une même cellule :
J'ai écris une procédure, en gros l'algo :

• Se positionner dans la cellule
• Positionner le curseur en fin de ligne
• Selectionner le style souhaité
• Ecrire le texte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void EcrireCellule(int ligne, int colonne, AnsiString texte, AnsiString style)
{
    // cette procédure permet de placer le curseur dans la case souhaitée d'un tableau
    vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OleFunction("Cell", ligne, colonne).OlePropertyGet("Range").OleFunction("select");
 
    // déplacer le curseur en fin de ligne
    vMSWord.OlePropertyGet("Selection").OleProcedure("EndKey", "5"); // wdLine = 5
 
    // Application du style
    vMSWord.OlePropertyGet("Selection").OlePropertyGet("ParagraphFormat").OlePropertySet("Style", style);
 
    // Ecriture du texte
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(texte)); // 
}