Setting User Parameter with VBA converting errors

[jcox9Z7J8]

I am changing User Parameters in a macro and the there are conversion errors that I can't figure out! please help.

Here is my code.

Sub setR()

Dim UserParams As UserParameters
Set UserParams = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
For Each Item In UserParams
Item.Value = 1

Next

End Sub

When the program is run the value set for each User Parameter is 0.39370079 in.  It doesn't mater if the document parameters are set to "inch" or "mm".  I'm pretty sure that it is a rounding error because .3937 * 2.54 = 1 which is a metric to inch conversion.

[TomaszDąbrowski · Accepted solution]

Try if this works:

Sub setR()

Dim UserParams As UserParameters
Set UserParams = ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
Dim Item As Parameter
For Each Item In UserParams

'choose line with desired unit
Item.Units = "cm"
'Item.Units = "mm"
'Item.Units = "in"

Item.Expression = 1
Next

End Sub

[jcox9Z7J8]

Thanks!  

Item.Expression instead of Item.Value did the trick.