Dobrý den,

to je velmi snadné.

Jde to buď přes vlastnost UserRefProperties objektu Product (na Part i Product dokumentu), nebo přes kolekci parametrů. K jednotlivým parametrům se pak dostanete metodou Item("nazev parametru").

Příklad:

Dim Params As Parameters

Params = oDocument.Product.UserRefProperties (kolekce uživatelských parametrů) ' univerzalni pristup

nebo

ProductParams = oDocument.Product.Parameters ' sestava - kolekce všech parametrů

PartParams = oPartDocument.Part.Parameters ' part - kolekce všech parametrů



Dim Param As Parameter

Param = Params.Item("nazev parametru")

' a hodnota

Value = Param.ValueAsString ' hodnota jako typ string

Ne, tohle je špatně. Nemůžete do kolekce přiřazovat konkrétní parametr. Musí být:

Dim oParameter

Dim oParameters



oParameters = oDoc.Product.UserProperties

oParameter = Parameters.Item("nazev parametru")