Code:
Sub CATMain() If MsgBox("Sind noch weitere Catia Dateien geoeffnet?", vbYesNo, "Makro Abbruch") = vbNo Then
Set documents1 = CATIA.Documents
'oeffnet DekorAssembly + Druck -Praege - Heattransfer Parts mit Datei neu aus und verbaut alles im Dekor_subassembly.CATProduct
Set productDocument1 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Dekor2014.CATProduct")
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Druck2014.CATPart")
Set documents1 = CATIA.Documents
Set partDocument2 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Praege2014.CATPart")
Set documents1 = CATIA.Documents
Set partDocument3 = documents1.NewFrom("S:\CATIA\Allgemein\Datei neu aus\2014\Dekor\Heat2014.CATPart")
Set windows1 = CATIA.Windows
windows1.Arrange catArrangeTiledVertical
Set specsAndGeomWindow1 = windows1.Item("Dekor2014_1.CATProduct")
specsAndGeomWindow1.Activate
Set product1 = productDocument1.Product
Set products1 = product1.Products
Set product2 = products1.Item("Druckdekor")
Set product3 = partDocument1.GetItem("Druckdekor")
Set Nothing1 = products1.ReplaceProduct(product2, product3, True)
Set product4 = products1.Item("Praegedekor")
Set product5 = partDocument2.GetItem("Praegedekor")
Set Nothing1 = products1.ReplaceProduct(product4, product5, True)
Set product6 = products1.Item("Heattransfer")
Set product7 = partDocument3.GetItem("Heattransfer")
Set Nothing1 = products1.ReplaceProduct(product6, product7, True)
'schliesst die Dekor Parts
Set specsAndGeomWindow2 = windows1.Item("CATPart7.CATPart")
specsAndGeomWindow2.Activate
specsAndGeomWindow2.Close
Set partDocument3 = CATIA.ActiveDocument
partDocument3.Close
Set specsAndGeomWindow3 = windows1.Item("CATPart5.CATPart")
specsAndGeomWindow3.Activate
specsAndGeomWindow3.Close
Set partDocument1 = CATIA.ActiveDocument
partDocument1.Close
Set specsAndGeomWindow4 = windows1.Item("CATPart6.CATPart")
specsAndGeomWindow4.Activate
specsAndGeomWindow4.Close
Set partDocument2 = CATIA.ActiveDocument
partDocument2.Close
Else: MsgBox ("Bitte alle geoeffneten Catia Dateien sichern und schliessen")
End If
End Sub