TWiesendanger
9/7/2018 - 2:13 PM

Create Parameter

Create Parameter6
content_copyfile_download
'Setting an userParameter as text parameter
oParameter=oMyParameter.AddByValue("AwesomeParameter", "Option1", UnitsTypeEnum.kTextUnits)MultiValue.SetList("AwesomeParameter", "Option1", "Option2", "Option3", "Option4")
Create Parameter5
content_copyfile_download
'Setting an userParameter as text parameter
oParameter=oMyParameter.AddByValue("color", "bule", UnitsTypeEnum.kTextUnits)
oParameter=oMyParameter.AddByValue("color", "red", UnitsTypeEnum.kTextUnits)
oParameter=oMyParameter.AddByValue("color", "yellow", UnitsTypeEnum.kTextUnits)
Create Parameter4
content_copyfile_download
'Setting an userParameter as Millimeteres
oParameter=oMyParameter.AddByExpression("Length_mm", "3", UnitsTypeEnum.kMillimeterLengthUnits)
oParameter=oMyParameter.AddByExpression("Width_mm", "3", "mm")
Create Parameter3
content_copyfile_download
oMyParameter=ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
'Setting an userParameter as inches
oParameter=oMyParameter.AddByExpression("Length_inch", "3", UnitsTypeEnum.kInchLengthUnits)
oParameter=oMyParameter.AddByExpression("Width_inch", "3", "in")
Create Parameter2
content_copyfile_download
oMyParameter=ThisApplication.ActiveDocument.ComponentDefinition.Parameters.UserParameters
'Setting an userParameter as inches
oParameter=oMyParameter.AddByExpression("Length_inch", "3", UnitsTypeEnum.kInchLengthUnits)
oParameter=oMyParameter.AddByExpression("Width_inch", "3", "in")
 
'Setting an userParameter as Millimeteres
oParameter=oMyParameter.AddByExpression("Length_mm", "3", UnitsTypeEnum.kMillimeterLengthUnits)
oParameter=oMyParameter.AddByExpression("Width_mm", "3", "mm")
 
'Setting an userParameter as text parameter
oParameter=oMyParameter.AddByValue("color", "bule", UnitsTypeEnum.kTextUnits)
oParameter=oMyParameter.AddByValue("color", "red", UnitsTypeEnum.kTextUnits)
oParameter=oMyParameter.AddByValue("color", "yellow", UnitsTypeEnum.kTextUnits)
Create Parameter
content_copyfile_download
Try
    oMyParameter= oRefDoc.ComponentDefinition.Parameters.UserParameters
    oParameter = oMyParameter.Item("Auftragsnummer")
    oParameter.Expression = Auftragsnummer 
Catch
    oParameter = oMyParameter.AddByExpression("Auftragsnummer", Auftragsnummer, UnitsTypeEnum.kUnitlessUnits)
End Try