ChangeVariable

Sub ChangeVariable(oDocument as object,Variable,NewContent as String)
  Dim Var as String
  Dim oTextfieldMaster As Object
  Dim oPropSet as Object
  Dim oDependentTextFields as Object
  Dim oXDependentTextField as Object
  Dim oTextFields as Object
  On Error Resume Next
  Var ="com.sun.star.text.FieldMaster.SetExpression."+Variable
  oTextfieldMasters = oDocument.getTextFieldMasters()
  oPropSet = oTextfieldMasters.getByName(Var)
  oDependentTextFields = oPropSet.DependentTextFields
  oXDependentTextField = oDependentTextFields(0)
  oldValue = oXDependentTextField.Content
  oXDependentTextField.setPropertyValue("Content", Newcontent)  
  oTextFields = oDocument.getTextFields()
  oTextFields.refresh()
  On Error Goto 0
End Sub