Textfelder im Writer auslesen
Verfasst: Mi, 21.01.2004 15:43
So, ich habe nun ein Makro, in dem ich Textfelder in dem Writer "ansprechen" kann:
Wenn das Textfeld den Namen "Test1" hat, dann will ich nun, dass mit diesem Text etwas geschieht. Wie kann ich denn aber nun den Text ansprechen?
In dem konkreten Fall soll der Text in eine Calc-Tabelle eingefügt werden. Aber wie geht das? (Das soll da bei ??? hin)
geht schon einmal nicht. Was muss denn da anstatt von getString hin?
Code: Alles auswählen
Dim Doc As Object
Dim TextFieldEnum As Object
Dim TextField As Object
Dim I As Integer
Doc = ThisComponent
TextFieldEnum = Doc.getTextFields.createEnumeration
While TextFieldEnum.hasMoreElements()
Textfield = TextFieldEnum.nextElement()
Master = Textfield.gettextfieldmaster()
If master.name="Test1" then
????
End If
Wend
Doc.getTextFields().refresh()
end sub
In dem konkreten Fall soll der Text in eine Calc-Tabelle eingefügt werden. Aber wie geht das? (Das soll da bei ??? hin)
Code: Alles auswählen
Zelle.String = Textfield.getString