8.1.2 Wie kann man Benutzerfelder einfügen?
Hier erst mal einfach der Code um ein Benuzterfeld einzufügen. Erklärung kommt später.


Sub InsertUserField
   oDocument = thiscomponent
    oTextFieldMasters = oDocument.TextFieldMasters
    'Prüfen ob das Feld schon existiert
    if oTextFieldMasters.hasByName("com.sun.star.text.FieldMaster.User.XXXX")=false then
    userField=odocument.createInstance("com.sun.star.text.TextField.User")
    newfield=odocument.createInstance("com.sun.star.text.FieldMaster.User")
    newfield.setPropertyValue ("Name", "XXXX")
    newfield.content="Inhalt"
    userfield.attachTextFieldMaster(newfield)
   'und nun einfügen
    range=odocument.text.createtextcursor()
    odocument.text.inserttextcontent(range,userfield,false)
   end if
end sub