10.3.12 ChangeUserField
Ändert den Wert eines Benutzerfeldes und aktualisert die Ansicht.


sub ChangeUserField (oDocument as Object,StrUserField as String, StrContent as String)
     Dim oDocu as Object
    Dim oTextFieldMasters as Object
    Dim TxtUserfield as String
'    oDocu = thisComponent    
     On Error Resume Next
    oTextFieldMasters = oDocument.TextFieldMasters
    TxtUserfield="com.sun.star.text.FieldMaster.User."+StrUserfield
    oTextFieldMasters.getByName(TxtUserfield).content = StrContent
    On Error Goto 0
    oTextFields = oDocument.getTextFields()
    oTextFields.refresh()
End Sub