Writer Listbox-Wert auslesen

[lto]

Hallo,

ich habe wieder mal ein kleines Problem, wo ich auch jetzt nach Stunden nicht dahinter komme:

In einem Writer Dokument habe ich unter anderem eine Listbox (Name="place"), wo ich via Makro den aktuellen Wert (der Inhalt, nicht die Position) zur Weiterverwendung auslesen möchte (wird als Teil des Dateinamens bei einem Speichern-unter-Dialog).

Ich habe viele Beispiele gefunden, jedoch beziehen sich diese alle auf Base-Forumulare, Calc oder Dialoge, ich habe kein (funktionierendes) Beispiel gefunden für meine Problemstellung.

Danke im Vorhinein,
lg Stefan

[lto]

Hallo,

kalter Kaffee und ne Zigarette haben doch ihren Zweck erfüllt.
Damit die Nachwelt auch etwas davon hat hier der komplette, funktionstüchtige Code: (ich habe dies für eine Listbox erstellt, die eine multiple Auswahl nicht zulässt)
Zusätzlich noch Werte aus einer Tabellenzelle.

Code: Alles auswählen

Sub GettinValues() 
	Dim oDoc As Object
	Dim TextTables As Object
	Dim Table As Object
	Dim CellName
	
 'Getting entries for building file name
	oDoc = ThisComponent

	oDocView = oDoc.getCurrentController()
	oForm = oDoc.drawpage.forms(0)
	oFeld = oForm.getByName("place")               'Name der Listbox
	Value1 = oFeld.CurrentValue                         'Aktueller Wert

'Werte aus Tabellenzellen
	TextTables = oDoc.getTextTables().getbyName("Tabelle1")     'Name der Tabelle
   Table = TextTables()
   CellName = Table.getCellbyName("A1")                                            'Tabellenzelle
   Value2 = CellName.getString()                                                       'Inhalt derTabellenzelle
   CellName = Table.getCellbyName("B2")
   Value3 = CellName.getString()


CellValue =   Value1 & "_" &  Value2 & "_" &  Value3

end sub

lg Stefan

[lto]

Du hast in deinem Beispiel einen kleinen Fehler drin.
Da steht BValue2. Sollte sicher ohne "B" sein

hallo,

natürlich hast du recht, ich schiebe das mal auf die uhrzeit des posts
lg