deutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
Code: Alles auswählen
sub setwert
odocument = thiscomponent
Dim Var as String
Dim oTextfieldMaster As Object
Dim oPropSet as Object
Dim oDependentTextFields as Object
Dim oXDependentTextField as Object
Dim oTextFields as Object
Dim OldValue as String
Dim NewValue as Integer
' Die Variable wird über den festgelegten Namen, hier "Wert", aufgerufen
Var ="com.sun.star.text.FieldMaster.SetExpression.Wert"
oTextfieldMasters = oDocument.getTextFieldMasters()
oPropSet = oTextfieldMasters.getByName(Var)
oDependentTextFields = oPropSet.DependentTextFields
oXDependentTextField = oDependentTextFields(0)
'Jetzt wird der alte Wert ausgelesen und um eins erhöht
oldValue = oXDependentTextField.Content
newValue = cint(oldValue)
newValue=newValue+1
oXDependentTextField.setPropertyValue("Content",cstr(newValue))
odocument.textfields.refresh()
end sub