Hallo Volker, Gerhard,
ich klinke mich mal kurz ein. Writer-Tabellen sind nicht ganz so einfach
zu verstehen. Auch wenn viele der typischen Tabellen-Methoden vorhanden
sind und intern korrekt ausgefüllt werden, ist der umgekehrte Weg (also
über die Eigenschaften / Methoden) auf z.B. selektierte Zellen zu
kommen, nicht möglich.
Wir hatten gerade im Forum einen sehr ähnlichen Fall diskutiert -
vielleicht hilft Dir das ein wenig weiter:
https://de.openoffice.info/viewtopic.php?f=18&t=72202
So ähnlich wirst Du auch vorgehen müssen...
Viele Grüße
Thomas
Am 20.05.2019 um 23:48 schrieb Gerhard Weydt:
Hallo Volker,
ich habe aufgrund deiner Mail ein paar Sachen ausprobiert, bin aber
auch nicht weitergekommen. Dann wollte ich abwarten, ob jemand anders
etwas Schlaues beiträgt. Nun komme ich zu dem Schluss, dass wir beide
nicht blind sind, sondern dass da womöglich wirklich nichts zur
Verfügung gestellt wird.
Gruß
Gerhard
Am 25.04.2019 um 19:22 schrieb Volker Lenhardt:
Mein Problem: Ich will im Writer mit einem Makro mit Hilfe der API
auf jede einzelne von mit der Maus selektierten Zellen einer
(komplexen) Texttabelle zugreifen.
Für die gesamte Tabelle gibt es die Methode getCellNames(), die
fehlerlos die Namen aller Zellen ausgibt, so dass ich jede Zelle mit
oTable.getCellByName(sName) instanziieren kann. So etwas fehlt sowohl
für den Service CellRange als auch für TextTableCursor.
Wie kann ich mein Ziel erreichen?
Sub GetEachCellInSelection(Optional oDoc, Optional oCellSel)
Dim oTable, oCellRange, aCellNames() As String
Dim sRangeName&
If IsMissing(oDoc) Then oDoc = ThisComponent
If IsMissing(oCellSel) Then oCellSel = oDoc.CurrentSelection
If oCellSel.supportsService("com.sun.star.text.TextTableCursor") Then
oTable = oDoc.CurrentController.ViewCursor.TextTable
sRangeName = oCellSel.RangeName 'Hilft mir nicht weiter
oCellRange = oTable.getCellRangeByName(sRangeName) 'Das auch nicht
'????
End If
End Sub
Bin ich einfach nur blind?
Volker
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy