Automating curve smoothing

Is it possible to automate curve smoothing?
I tried to record a macro, but it only contains the code for replacing the curve with a new one.
I am trying to figure out a way (no matter via VBA or CorelScript) to work over a bunch of selected objects and smooth the curves in them
(Select the single object, select all of its nodes, smooth the curves, using a parameter)
So how it could (and could it) be done?

Moreover I would be interested in accomplishing the task in CDR9, because there is great difference between later Corel Draw versions and CorelDraw 9. CDR9 does it better IMO.
And Smoothen method (and the NodeRange class) was introduced in CDR10...

[shelbym]

I have never liked the curve smoothness, I prefer the old autoreduce, which is still there and can be accesses via VBA like this, this is for 11 - 12, I don't recall 9 and 10, been to long sorry.

Sub AutoReduce()

ActiveShape.Curve.Nodes.All.AutoReduce 0.003

End Sub

Hope it helps,

Shelby

It is of major importance to access exactly the curve smoothing functionality of Corel Draw 9.
Auto reduce gives not suitable results and depends on the scale of the curve.
(e.g. the same curve (but scaled) will produce different results when auto reduced)