OpenOffice.info

Hallo Stadtmensch,

also, Textfelder sind noch so ein Problemchen in Basic. Da gibt es noch ein paar Ungereimtheiten.

[quote]While TextFieldEnum.hasMoreElements()
Textfield = TextFieldEnum.nextElement()
Master = Textfield.gettextfieldmaster()

If master.name="Test1" then
????
End If
Wend [/quote]

Die Zeile mit dem "Master" brauchst du eigentlich nicht.
Textfield.content gibt dir den Inhalt des Textfeldes wieder.

Wenn du das Textfeld als Eingabefeld eingeführt hast, dann gibt es eine auslesbare Eigenschaft "hinweis" (hint), den du zur Unterscheidung verwenden kannst - vorausgesetzt, du gibst auch Unterschiede an.

Also:

sHinweis = Textfield.hint ' als String, der Eingabehinweis
sInhalt = Textfield.content ' als String der Inhalt

Und wenn du den Sring hast, dann ist es auch kein Problem, diesen Deiner Zelle zuzuordnen sprich einzuschreiben,

Gruss
Thomas

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

Zelle.String = Textfield.getString

So, ich habe nun ein Makro, in dem ich Textfelder in dem Writer "ansprechen" kann:

[code]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[/code]

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)

[code]Zelle.String = Textfield.getString[/code]

geht schon einmal nicht. Was muss denn da anstatt von getString hin?