
meine erste von 2 Aufgaben für den heutigen Sonntag

in einem Writerdokument (WWW importiert) gibt es eine oder auch mehrere Tabellen die 1 Zeile und 3 Spalten groß sind
wobei nur die mittlere Spalte Text enthält .
Diese Tabelle möchte ich komplett entfernen und durch den Text aus der mittleren Zelle im "Textkörper/Blocksatz" ersetzen.
mit folgenden Code komme ich bis zum auslesen der mittleren Zelle ........
Code: Alles auswählen
Enum = Doc.Text.createEnumeration
While Enum.hasMoreElements
TextElement = Enum.nextElement
if TextElement.supportsService("com.sun.star.text.TextTable") then
print "Tabelle gefunden "
myTables = createunoservice("com.sun.star.text.TextTables")
myTables = oDoc.getTextTables
myTable = createunoservice("com.sun.star.text.TextTable")
myTable = myTables.getByIndex(0)
myCell = myTable.getCellByPosition(1,0)
print myCell.string
' Tabelle entfernen
' Text einfügen
end if
Wend
Für anwendbare Code-fetzen oder sonstige Hinweise die zum gewünschten Ziel führen wäre ich sehr erfreut