Public Const redactionExtenstionName As String = "cleanAndValidate" Function initRedactionConfiguration() On Error Goto exceptionHandler Dim regFactory As Object Dim reg As Object Dim props(2) As New com.sun.star.beans.PropertyValue regFactory = CreateUnoService("com.sun.star.ucb.Store") reg = regFactory.createPropertySetRegistry(redactionExtenstionName) redactionProps = reg.openPropertySet(redactionExtenstionName, TRUE) redactionProps.addProperty("complexity", 128, "user") initConfigureation = redactionProps exceptionHandler: Resume Next initRedactionConfiguration = redactionProps End Function Sub setRedactionComplexity(complexityLevel) Dim config As Object config = initRedactionConfiguration() config.setPropertyValue("complexity", complexityLevel) End Sub