Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("3432A75A39D531603432A75A39D76F06VPMENV  DOCCAD            PLOC")

Dim productDocument1 As ProductDocument
Dim product1 As Product

'***Allgemeine Definitionen***
    Set oDoc = CATIA.ActiveDocument
    Set oPart = oDoc.Part
    Set oRel = oPart.Relations

    Set oFenster = CATIA.Windows
    If oFenster.Count = 0 Then
        Box = MsgBox("Es ist kein Dokument geladen!" + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!", vbCritical, "Keine Dokument geladen")
        Exit Sub
    End If
    
'***Dateiname des CGRs***
    Set aktivDoc = CATIA.ActiveDocument
    ObjType = TypeName(aktivDoc)
    Set oFileSys = CATIA.FileSystem
    oPfad = "D:\temp\"
    
'    If (Not oFileSys.FolderExists(oPfad)) Then
'       Box = MsgBox("Der angegebene Ordner existiert nicht!" + Chr(10) + _
'       "Bitte aendern Sie den Quelltext in Zeile 19", vbCritical + vbOKOnly, "Speicherpfad")
'       Exit Sub
'    End If

    oFileNameRAW = oPfad & aktivDoc.Product.Name + "_deflection_"

'***Schleife für CGRs***
Set oTable = oRel.Item("DesignTable") 'hier den richtigen Namen eintragen!!!
    OriConfig = oTable.Configuration
'Box = MsgBox("Sie haben folgende DesignTable ausgewählt" & oTable.Name, vbInformation, "Hinweis")

For i = 1 To oTable.ConfigurationsNb
    oFileName = oFileNameRAW & i
    oTable.Configuration = i
    oPart.Update
    Set productDocument1 = CATIA.ActiveDocument
    Set product1 = productDocument1.Product
    product1.Update
'    productDocument1.ExportData oFileName & ".cgr"
    productDocument1.ExportData "C:\Documents and Settings\jdahm\Desktop\MOVEMENT_DESIGNTABLE_2.cgr", "cgr"

'Set partDocument1 = CATIA.ActiveDocument
'    partDocument1.SaveAs oFileName & ".CATPart"
Next
    oTable.Configuration = OriConfig
    part1.Update

End Sub