Liest den Wertes eines Benutzerfeldes aus.

Function GetUserField (oDocument as Object,StrUserField as String) as string

     Dim oDocu as Object

    Dim oTextFieldMasters as Object

    Dim TxtUserfield as String

     On Error Resume Next

    oTextFieldMasters = oDocument.TextFieldMasters

    TxtUserfield="com.sun.star.text.FieldMaster.User."+StrUserfield

    GetUserField=oTextFieldMasters.getByName(TxtUserfield).content

    On Error Goto 0

End Function