Je dispose d'un document texte writer,contenant des tableaux,
que je souhaite lister-copier, afin de les coller tous, dans des
feuilles de classeur distinctes sous calc.
Il s'agit de copier le contenu de CopierCollerSource.odt.tableau1, et de le coller dans CopierCollerCible.ods.Feuille1
Il s'agit de copier le contenu de CopierCollerSource.odt.tableau2, et de le coller dans CopierCollerCible.ods.Feuille2
etc...
maigre source,de Pierre-Yves SAMYN pour commencer :
Code : Tout sélectionner
'parcourir les cellules du tableau1 writer
Sub Main
dim PysDoc as object, PysTable as object, PysCell as object
dim PysNum as integer
PysDoc = thisComponent
PysTable = PysDoc.TextTables.getByName("Tableau1")
for PysNum = lbound(PysTable.CellNames) to ubound(PysTable.CellNames)
PysCell = PysTable.getCellByName(PysTable.CellNames(PysNum))
print PysCell.string
next PysNum
End Sub
Merci beaucoup aux généreux sachants, qui m'accorderont leur aide éventuelle.
Bonne journée !