Variable im Writer-Dokument abfragen und ändern

[claves]

Hallo alle zusammen,

Mein System:
Windows Server 2008 R2 / Ubuntu 10.4
OpenOffice 3.2

ich habe folgendes Problem.

Ein OpenOffice Writer Dokument besitzt eine Variable die über Strg+F2 "Variablen" -> "Variablen setzen" hinterlegt wurde.
Name="TYP" Wert="a" Format="Text"
Diese Variable möchte ich gerne abfragen und den Wert von a auf b ändern.

Vielen Dank für Eure Hilfe!

Gruß
claves

[claves]

Habe nun was gefunden was für mich funktioniert.

Code: Alles auswählen

Sub marko
  Dim Var as String
 
   
  Dim oTextfieldMaster As Object
  Dim oPropSet as Object
  Dim oDependentTextFields as Object
  Dim oXDependentTextField as Object
  Dim oTextFields as Object
 oDocument = thiscomponent
 
  Var ="com.sun.star.text.FieldMaster.SetExpression.TEST"
  oTextfieldMasters = oDocument.getTextFieldMasters()
  oPropSet = oTextfieldMasters.getByName(Var)
  oDependentTextFields = oPropSet.DependentTextFields
  oXDependentTextField = oDependentTextFields(0)
  oldValue = oXDependentTextField.Content
  oXDependentTextField.setPropertyValue("Content", "NEUER WERT" )
  odocument.textfields.refresh()
 
 
 end sub