Makros und Tools

ChangeUserField

Ändert den Wert eines Benutzerfeldes und aktualisert die Ansicht.

Basic

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