GetPartFromName
From scripting
Function GetPartFromName(InputStr As String) As Part For X = 1 To CATIA.Documents.Count If TypeName(CATIA.Documents.Item(X)) = "PartDocument" Then If CATIA.Documents.Item(X).Part.Name = InputStr Then Set GetPartFromName = CATIA.Documents.Item(X).Part End If End If Next X End Function