Discussion :

[LotfiB]

Comparaison entre une oleWord implementation native et une implantation TWordApplication / VCL classe

Je suis entrain d'élaborer une comparaison :
link

mais j'ai des pbs relatif à une correspondance entre long et tagVariant * :

Code :

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

1
2
3
 
 
WordRangePtr MyRange = WordDocument1->Range(  (tagVARIANT*)(Table1->Cell(1,1)->Range->Start), (tagVARIANT*)(Table1->Cell(1,1)->Range->End));

Il n'y a pas de doc.
blondelle, est tu encore dispo pour une traduction ole :-) ?
Ciao

[LotfiB]

y a aussi

MyRange->SetRange( Table1->Cell(1,1)->Range->Start, Table1->Cell(1,1)->Range->End);

mais ça ne marche pas non plus

[blondelle]

Salut LotfiB:
De la Doc je n'en connais pas.
Je ne comprend pas trop ce que tu veu faire, je met les fonctions qui marches en OleExcel.

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
16
17
18
19
20
 
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myTable.OleFunction("Cell", 2, 1).OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OleFunction("EndOf", 9, 1);
 
//
 
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myTable.OleFunction("Cell", 2, 1).OleFunction("Select");
vMSWord.OlePropertyGet("Selection").OleFunction("EndKey", 6, 0);
 
//
 
myTable = vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1");
myRange = vWDocument.OleFunction("Range", myTable.OleFunction("Cell", 1, 1)
.OlePropertyGet("Range").OlePropertyGet("Start"), myTable.OleFunction("Cell", 1, 3).OlePropertyGet("Range").OlePropertyGet("End"));
// on change la Font de la selection
myRange.OlePropertyGet("Font").OlePropertySet("Bold",true);
// on fusionne la selection
myRange.OlePropertyGet("Cells").OleProcedure("Merge");

[LotfiB]

je t'avais deja dit que j'essaye de traduire l'oleword tel que tu me l'as apprsi (merci maître Yoda) vers des objets du BDS/VCL/officexp (TWordApplication et TWordDocument) car c'est bcp plus lisible et simple
masi ya des conversions de types qui ne sont pas évidentes sur certaines fonction équivalentes..
notament la Range, regardes ma page html

en plus ton
vMSWord.OlePropertyGet("Selection").OleFunction("EndOf", 9, 1);

je lui prefere (plus parlant) :
vMSWord.OlePropertyGet("Selection").OleFunction("EndOf", wdColumn, wdExtend);<br />

[blondelle]

C'est normal que ca ne marche pas tu selectionne une cellule et non une plage

y a aussi

MyRange->SetRange( Table1->Cell(1,1)->Range->Start, Table1->Cell(1,1)->Range->End);

mais ça ne marche pas non plus

[LotfiB]

C'est normal que ca ne marche pas tu selectionne une cellule et non une plage

http://delphi.developpez.com/faq/?pa...lectionnerzone

[blondelle]

Si c'est ce qui te gene tu peu faire.

int wdColumn = 9;
int wdExtend = 1;

C'est une question de gout.
Si tu veu inclure "#include <word_xp.h>", tu n'a pas a traduire mais je pense que tu gonfle ton code avec un fichier supplementaire.

[blondelle]

Ton lien parle de paragraphe pas de table

blondelle a écrit :
C'est normal que ca ne marche pas tu selectionne une cellule et non une plage


http://delphi.developpez.com/faq/?pa...lectionnerzone

[LotfiB]

C'est normal que ca ne marche pas tu selectionne une cellule et non une plage

meme avec :

MyRange->SetRange( Table1->Cell(1,1)->Range->Start, Table1->Cell(1,3)->Range->End);

marche pas


paragraphe ou table c'est ue n zone de Range non ?...

[blondelle]

Regarde mon poste N3 ma fonction marche

[LotfiB]

Regarde mon poste N3 ma fonction marche

mais je sais que ça marche et je l'ai utilisé qd je faisai du pure natif oleword
mais là je voudrai le faire avec les classes du BCB !
j'ai tt traduit comme tu le vois sur le lien sur mon site, mais il me reste le SetRange(..Start, ..End) qui ne marche pas :-(