' Im höchsten Product veröffentlichen
    Dim productDocument1 As productDocument
    Set productDocument1 = CATIA.ActiveDocument

    Dim product1 As Product
    Set product1 = productDocument1.Product

    Set reference1 = product1.CreateReferenceFromName("Product1/Skelett.1/!Skizze.1")

    Dim publications1 As Publications
    Set publications1 = product1.Publications

    Dim publication1 As Publication
    Set publication1 = publications1.Add("Skizze.1")

    publications1.SetDirect "Skizze.1", reference1

......................

' kopieren und einfügen der Skizze

    'Referenz der Skizze holen
    
    Dim oActiveDoc As productDocument
    Set oActiveDoc = CATIA.ActiveDocument
    
    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 bodies1 As Bodies
    Set bodies1 = part1.Bodies
    
    Dim body1 As Body
    Set body1 = bodies1.Item("Körper.2")
    
    Dim sketches1 As Sketches
    Set sketches1 = body1.Sketches
    
    Dim sketch1 As Sketch
    Set sketch1 = sketches1.Item("Skizze.1")


    ' Referenz des Einfügeorts holen
    Dim documents1 As Documents
    Set documents1 = CATIA.Documents
    
    Dim partDocument1 As PartDocument
    Set partDocument1 = documents1.Item("Part2.CATPart")
    
    Dim part1 As Part
    Set part1 = partDocument1.Part
    
    Dim hybridBodies1 As HybridBodies
    Set hybridBodies1 = part1.hybridBodies
    
    Dim hybridBody1 As HybridBody
    Set hybridBody1 = hybridBodies1.Item("Projektionsebene")


    ' kopieren und einfügen der Skizze
    
    oActiveDoc.Selection.Clear
    oActiveDoc.Selection.Add sketch1
    oActiveDoc.Selection.Copy
    oActiveDoc.Selection.Clear
    oActiveDoc.Selection.Add hybridBody1
    oActiveDoc.Selection.PasteSpecial "CATPrtResult"       ' Fügt ein mit einem Link


............