Status der AutoComplete-Funktion abfragen

[Stefan_]

Hallo OpenOffice-Gemeinde,

ich möchte die Funktion Extras>>Zellinhalte>>Autoeingabe abschalten.
Der Macrorecorder gibt dazu folgende Zeile aus: dispatcher.executeDispatch(document, ".uno:AutoComplete", "", 0, Array())

Allerdings wird bei mehrmaligem Aufruf die Funktion wechselweise an- und ausgeschaltet.

Wie kann ich den Status der Funktion abfragen?

Vielen Dank!

Stefan.

[Stefan_]

Sub Configuration_aendern()
Dim objConfigProvider as Object
Dim objRegistryKeyContent as Object
Dim argProperty(0) as new com.sun.star.beans.PropertyValue

'Initialisierung
objConfigProvider = createUnoService("com.sun.star.configuration.ConfigurationProvider")
argProperty(0).Name = "nodepath"
argProperty(0).Value = "org.openoffice.Office.Calc"
objRegistryKeyContent = objConfigProvider.createInstanceWithArguments("com.sun.star.configuration.ConfigurationUpdateAccess" , argProperty())

'Ändern der Einstellungen - Einstellungen ziehen erst nach Neustart von OpenOffice
With objRegistryKeyContent
.Input.AutoInput=False
.CommitChanges
End With

End Sub