| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.12 ChangeUserField
Ä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 |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009