Discussion :

[Matsa]

Bonjour a tous,

Je realise en ce moment un projet sous BCB permetant de gerer un parc client et de remplire un formulaire Word avec les renseignement de ces clients. J arrive a remplire des zones de texte a partir de mes Edit en utilisant des Signet mais je n arrive pas a remplire un ComboBox. Avec un Signet les lignes s'ecrivent en dessous du ComboBox et non pas a l interieur.

Si quelqu un peut m aider svp,ca fait des heures que je galere!!
merci

[blondelle]

Salut Matsa
Post un peu de code pour voir ce que tu veu exactement

[Matsa]

salut blondelle

voici mon code(qui marche) pour ecrire dans un champs grace a un signet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Variant vBookMarks, vBookMark, vContent;
 
if (vBookMarks.OleFunction("Exists", "signet10"))
{
vBookMark = vBookMarks.OleFunction("Item", "signet10");
vBookMark.OleFunction("Select");
 
 
vContent = vBookMark.OlePropertyGet("Range");
vContent.OleFunction("InsertAfter", Edit18->Text.c_str());
}

mais quand je fais la meme chose avec un signet pointant sur un Combobox les lignes ne s'ajoutent pas mais s'ecrivent en dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
 
if (vBookMarks.OleFunction("Exists", "signet11"))
{
vBookMark = vBookMarks.OleFunction("Item", "signet11");
vBookMark.OleFunction("Select");
 
 
vContent = vBookMark.OlePropertyGet("Range");
vContent.OleFunction("InsertAfter", ListBox2->Items->GetText());//meme chose a partir d'un Edit
}

[blondelle]

Regarde dans la Faq, l'ecriture est differente

http://cpp.developpez.com/faq/bcb/?p...enancetlistbox

[Matsa]

voici le code modifié

Code :

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

1
2
3
4
5
6
7
8
9
if (vBookMarks.OleFunction("Exists", "signet11"))
{
    vBookMark = vBookMarks.OleFunction("Item", "signet11");
    vBookMark.OleFunction("Select");
 
 
    vContent = vBookMark.OlePropertyGet("Range");
    vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(ListBox2->Items->Strings[0]));
}

Je ne sait pas si c'est la bonne ecriture car cela ecrit bien au niveau du signet mais en faisant disparaitre le ComboBox
dsl je debute dans le pilotage OLE de Word

[blondelle]

Voila ce que j'ai teste

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 __fastcall TForm1::Button5Click(TObject *Sender)
{
Variant vBookMarks, vBookMark, vContent;
vBookMarks = vWDocument.OlePropertyGet("BookMarks");
if (vBookMarks.OleFunction("Exists", "signet1"))
{
    vBookMark = vBookMarks.OleFunction("Item", "signet1");
    vBookMark.OleFunction("Select");
    // ...
vContent = vBookMark.OlePropertyGet("Range");
//vContent.OleFunction("InsertAfter", "texte");
vMSWord.OlePropertyGet("Selection").OleProcedure("TypeText", WideString(ListBox1->Items->Strings[0]));
}
}

Je pense que ce n'est pas que le TListBox qui disparait mais la Form complete, si oui c'est Word qui passe au premier plan