Units of Measure

[NachoShaw]

Hey

I am using a routine that gets a range box size and the return value is in the default unit of CM. We use 2 types of formats (in. for USA and mm for Aus).

I have looked at trying to use the document Units of Measure but all it really does is return the suffix format.

how can I convert it using the UOM so that the return value matches the current format of the document i.e. inches or mm?

thanks

Nacho

[YuhanZhang · Accepted solution]

Here is a sample VBA to show how to convert the length value(in centimeters as default) to the document length units:

Sub ConvertValueToDocUnits()
    ' say you have a double value(in centimeters)
    Dim dRangeBoxVal As Double
    dRangeBoxVal = 2.54
    
    Dim oUOM As UnitsOfMeasure
    Set oUOM = ThisApplication.ActiveDocument.UnitsOfMeasure

    Dim dResultVal As Double
    dResultVal = oUOM.ConvertUnits(dRangeBoxVal, kCentimeterLengthUnits, oUOM.LengthUnits)
    
    Debug.Print dResultVal & " " & oUOM.GetStringFromType(oUOM.LengthUnits)
End Sub

Hope it helps.