Ä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