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