Comparison between native oleWord implementation and TWordApplication / VCL classes

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:

---

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

y a aussi

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

mais ça ne marche pas non plus

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:

---

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

---

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

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

Citation:

---

y a aussi

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

mais ça ne marche pas non plus

---

Citation:

---

Envoyé par blondelle

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

---

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

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

Citation:

---

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.

Ton lien parle de paragraphe pas de table

Citation:

---

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

---

Citation:

---

Envoyé par blondelle

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 ?...

Regarde mon poste N3 ma fonction marche

Citation:

---

Envoyé par blondelle

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 :-(

La je ne peu pas t'aider je ne connais pas

ok merci

en fait mon pb est que mon MyRange ds:
MyRange->SetRange( Table1->Cell(1,1)->Range->Start, Table1->Cell(1,3)->Range->End);
MyRange->Font->Bold=true;
MyRange->Cells->Merge();

n'est pas alloué (new ou recopie), car WordRange * MyRange;

le pb est que WordRange est une classe abstraite suelement
MyRange=new WordRange(WordDocument1->Range( 0,0));
ne marche pas non plus
ciao