oleword (de VBA vers C++)

**LotfiB** · 16/12/2006, 22h48

Bonsoir

en fait j'ai des difficulté avec les tableaux, comment selectionner 2 lignes, ou bien aller apres le tableau pour inserrer du texte ou un nouveau paragraphe
et il n'y a que des bouts de code qui existent de part et d'autres sans qu'il n'y ai de continuité.
je confond Range et Selection, y a des fonctions qui sont compatible avec range d'autres avec selection..
comment fait on pour sortir d'un tableau ???

exple comment traduire le help de VBA Word qui selectionne une ligne entier d'un tableau vers du C++
Cet exemple montre comment ajouter un tableau, sélectionner la première cellule de la deuxième ligne et étendre la sélection vers la fin de la colonne.

Code :

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

1
2
3
4
5
Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
    NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend

ou bien
L'objet Selection comprend plusieurs méthodes et propriétés permettant de réduire, de développer ou de modifier la sélection en cours. L'exemple suivant montre comment placer le point d'insertion à la fin du document et sélectionner les trois dernières lignes de ce dernier.

Code :

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

1
2
3
4
 
Selection.EndOf Unit:=wdStory, Extend:=wdMove
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.MoveUp Unit:=wdLine, Count:=2, Extend:=wdExtend

ciao
Lotfi

**blondelle** · 16/12/2006, 22h55

Salut LotfiB:
dans le post precedent il y avait la fonction pour creer un tableau
le code:

Code :

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

1
2
3
4
 
// on cree un tableau de deux lignes et six colonnes
    vWDocument.OlePropertyGet("Tables").OleFunction("Add", vMSWord.OlePropertyGet("Selection").
    OlePropertyGet("Range"), 2, 6);

**LotfiB** · 16/12/2006, 23h04

c'estr pas la creation qui me pose pb, là c'est bon
c'est la selection d'une ligne ou 2 du tableau par exemple

ou me deplacer à la fin du document ?
je fais ça avec range ou selection
je cherche de la SYNTAXE

car comme les fonctions compile bien mais donne des erreurs à l'exec, comme tt OLE qui se respecte :-(

**blondelle** · 16/12/2006, 23h17

Voici pour la selection de la premiere cellule de la deuxieme ligne.
le code:

Code :

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

1
2
 
vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OleFunction("Cell", 2, 1).OleFunction("Select");

Je te passe le code au fur et a mesure que je l'ecrit

**blondelle** · 16/12/2006, 23h27

Voici comment selectionner la deuxieme ligne du tableau.
Le code:

Code :

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

1
2
 
vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OlePropertyGet("Rows").OleFunction("Item", "2").OleFunction("Select");

**LotfiB** · 16/12/2006, 23h34

comment tu sais que c'est une
OleFunction("Select")
et non pas une OleProcedure ou proprietyGet
c'est l'xp ? ou tu as de la doc qqe part sur ttes les fonctions ?
ça serait bien qu'on en mette une sur une FAQ ?
;-)

**blondelle** · 16/12/2006, 23h35

Voici comment aller a la fin du document.
Le code:

Code :

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

1
2
 
vMSWord.OlePropertyGet("Selection").OleProcedure("EndKey", "6");

Je pense avoir repondu a tes questions.

je fais ça avec range ou selection
je cherche de la SYNTAXE

Le code est une readaptation du code VBA Word qui n'est pas toujours evident a trouver il faut faire une comparaison entre les deux codes pour essayer de comprendre.
Bon courage.
A+

**LotfiB** · 16/12/2006, 23h38

juste un truc encore

comment tu étends la selection à partir de

Code :

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

MyTable.OlePropertyGet("Rows").OleFunction("Item", "2").OleFunction("Select");

(une fois que tu l'as fait)
par exemple jusqu"à la ligne suivante
Merci

**blondelle** · 16/12/2006, 23h42

LotfiB a ecrit:

comment tu sais que c'est une
OleFunction("Select")
et non pas une OleProcedure ou proprietyGet
c'est l'xp ? ou tu as de la doc qqe part sur ttes les fonctions ?
ça serait bien qu'on en mette une sur une FAQ ?

Avec OlePropertyGet on selectionne les mots de commande VB.
Avec OlePropertySet on ecrit une commande.
Avec OleFunction ou OleProcedure on execute une fonction.
Je sais que ce n'est pas evident mais il n'y a qu'en essayant avec les morceaux de code que l'on arrive a comprendre.
Tous les codes qui fonctionnent sont proposes pour une prochaine mise a jour de la FAQ en attendant je repondrais a tes questions.

**LotfiB** · 17/12/2006, 00h11

Code :

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

1
2
3
 
Table1.OlePropertyGet("Rows").OleFunction("Item", "2").OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Bold",true);

marche TB

mais, étendre la selection à partir d'une cellule :-( ne marche pas encore

Code :

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

1
2
3
4
5
6
7
8
 
Table1.OleFunction("Cell", 2, 1).OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OleFunction("EndOf", "wdColumn","wdExtend");
 
ou vMSWord.OlePropertyGet("Selection").OleFunction("EndOf").OlePropertySet("wdColumn","wdExtend");
// traduire : Selection.EndOf Unit:=wdColumn, Extend:=wdExtend
 
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Font").OlePropertySet("Bold",true);

je cherche aussi à fusionner les cellule d'une ligne et à les centrer(je chercherai tt seul cette partie là :-)

**blondelle** · 17/12/2006, 00h22

Je cherche des que j'ai trouve je poste.

**LotfiB** · 17/12/2006, 00h28

merci bcp

pour fusionner ya :

Code :

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

1
2
3
4
 
If Selection.Information(wdWithInTable) = True Then
    Set myrow = Selection.Rows(1)
    myrow.Cells.Merge

mais ce qui m'interesse est uniquement de fusionner les 3 premieres cellules de la 1er ligne par exemple donc dès que l'on saura etendre la selection, on pourra faire un C++ equiv à myrow.Cells.Merge

**blondelle** · 17/12/2006, 18h40

J'ai trouve le code VB pour selectionner une plage de cellules puis les fusionner.

Code :

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

1
2
3
4
5
 
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _
    .Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge

Maintenant il reste a l'adapter.

**LotfiB** · 17/12/2006, 22h56

c'est le + dur !!
j'essaye deja un ligne à fusionner

Code :

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

1
2
3
 Table1.OlePropertyGet("Rows").OleFunction("Item", "1").OleFunction("Select");
Application->MessageBoxA("Next", "Debug", MB_OK);
 vMSWord.OlePropertyGet("Selection").OleFunction("Merge");

mais ça plante sur le Merge, il doit y avoir des options ou ???

**blondelle** · 17/12/2006, 23h00

J'ai le meme probleme avec Merge

**LotfiB** · 17/12/2006, 23h07

voilà ce qui marche (à l(instant !!!)
Table1.OlePropertyGet("Rows").OleFunction("Item", "1").OleFunction("Select");
Application->MessageBoxA("Next", "Debug", MB_OK);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Cells").OleFunction("Merge");

**blondelle** · 17/12/2006, 23h16

la tu fusionne une ligne complete?

**LotfiB** · 17/12/2006, 23h33

oui
il me reste à trouver comment etendre la selection ds des cellules
ça doit ressembler à :

Code :

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

1
2
3
4
 
 Table1.OleFunction("Cell", 2, 1).OleFunction("Select");
 vMSWord.OlePropertyGet("Selection").OleFunction("MoveRight", "wdCell");
 vMSWord.OlePropertyGet("Selection").OlePropertyGet("Cells").OleFunction("Merge");

mais le OleFunction("MoveRight", "wdCell");
n'est pas accepté
tu sais comment on specifie l'Unit (voici le vba)

Code :

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

Selection.MoveRight Unit:=wdCell, Count:=1, Extend:=wdMove

**blondelle** · 17/12/2006, 23h38

J'ai fais un essai:
le code VB:

Code :

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

1
2
3
4
 
Set myTable = ActiveDocument.Tables(1)
Set myRange = ActiveDocument.Range(myTable.Cell(1, 1).Range.Start, myTable.Cell(1, 2).Range.End)
myRange.Cells.Merge

Ce que j'ai teste mais j'ai une erreur sur le 1er Range:

Code :

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

1
2
3
 
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myRange = vWDocument.OlePropertyGet("Range", myTable.OleFunction("Cell", 1, 1).OlePropertyGet("Range").OleFunction("Start"), myTable.OleFunction("Cell", 1, 3).OlePropertyGet("Range").OleFunction("End"));