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.