Re: [de-users] Writer-Texttabelle - Zellen aus einer UI-Selektion?

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+unsubscribe@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