Innerhalb eines Textdokumentes gibt es unter den möglichen Feldbefehlen "Benutzerfelder".
Diese kann man mit Starbasic ändern und auslesen.
Das dazugehörige Objekt befindet sich im Service "TextFieldMasters" und
kann mit
Getbyname mit dem kompletten Namen angesprochen werden.
Dim oDocu as Object
Dim oTextFieldMasters as Object
Dim TxtUserfield as String
oDocu = thisComponent
strUserfield = "Test"
strContent = "Neuer Text"
On Error Resume
Next
oTextFieldMasters = oDocu.TextFieldMasters
TxtUserfield="com.sun.star.text.FieldMaster.User."+StrUserfield
oTextFieldMasters.getByName(TxtUserfield).content
= StrContent
Na ja und das Auslesen erfolgt eigentlich auf ähnliche Weise:
TxtUserfield="com.sun.star.text.FieldMaster.User."+StrUserfield
XXXXXX=oTextFieldMasters.getByName(TxtUserfield).content
Siehe auch Tools.
