GetUserField

Liest den Wertes eines Benutzerfeldes aus.

Basic

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