Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("3432A75A39D531603432A75A39D76F06VPMENV  DOCCAD            PLOC")
Dim part1 As Part
Set part1 = partDocument1.Part
Dim relations1 As Relations
Set relations1 = part1.Relations
Dim designTable1 As DesignTable
Set designTable1 = relations1.Item("DesignTable")
designTable1.Configuration = 2
part1.Update
Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
product1.Update
Set productDocument1 = CATIA.ActiveDocument
productDocument1.ExportData "C:\Documents and Settings\jdahm\Desktop\MOVEMENT_DESIGNTABLE_2.cgr", "cgr"
designTable1.Configuration = 3
part1.Update
product1.Update
Set productDocument1 = CATIA.ActiveDocument
productDocument1.ExportData "C:\Documents and Settings\jdahm\Desktop\MOVEMENT_DESIGNTABLE_3.cgr", "cgr"

End Sub