Attribute VB_Name = "Modul10"
Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "(Name='Achsensystem.2' & ((CATStFreeStyleSearch.AxisSystem + CATPrtSearch.AxisSystem) + CATGmoSearch.AxisSystem)),in"

selection1.Search "Name='Achsensystem.2',from"

Dim product1 As Product
Set product1 = productDocument1.Product

Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Product1/Gussunterteil.1/!Achsensystem.2")

Dim publications1 As Publications
Set publications1 = product1.Publications

Dim publication1 As Publication
Set publication1 = publications1.Add("Achsensystem.2")

publications1.SetDirect "Achsensystem.2", reference1

End Sub