Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("Skelett.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim length1 As Length
Set length1 = parameters1.Item("Welle_Hoehe")

Dim refernce5 As Reference
Set reference5 = part1.CreateReferenceFromGeometry(length1)

Dim publication5 As Publication
Set publication5 = publications1.Add("Welle_Hoehe")

publications1.SetDirect "Welle_Hoehe", reference5