Bon le copié/collé de la ligne du tableau fonctionne.
Maintenant j'aimerais changer le texte de chaque ligne.
En fait remplacer (@) par (numLigne)
Dim CellDest As Object, oCell as Object
Dim oCurseur as Object, oText As Object
Dim Replace As Object
Replace = Doc.createReplaceDescriptor
Replace.SearchString = "(@)"
For index_row = 1 to nb_rows - 1
Replace.ReplaceString = "(" & index_row & ")"
For index_col = 0 to nb_colonnes - 1
oCell = Table.getCellByPosition(index_col, index_row)
oText = oCell.getText()
oCurseur = oText.createTextCursor()
oCurseur.gotoEnd(True)
oCurseur.replaceAll(Replace)
Next
Next
Le problème vient du replaceAll.
Il ne doit pas fonctionner avec le cursor.
Pourtant on doit pouvoir remplacer du texte par un autre dans
une sélection non ?
Quelqu'un aurait une idée ?
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
