'WTL Engineering GmbH;Norman Schulz, Waldauer Weg 70; D-34253 Lohfelden; +49(561) 95078-34; www.wtl-group.de

Language="VBSCRIPT"

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument

Set selection1 = partDocument1.Selection

selection1.Search "Name:konstruktionstabelle*;Alle"

Set partDocument1 = CATIA.ActiveDocument

Set selection1 = partDocument1.Selection

selection1.delete

End Sub