Hi,
below find a code snippet to get the member name from an occurrence
HTH
dy
============
Dim objOcc As Occurrence
Dim objOccDoc As Object
Dim sFilename As String
Dim sMemberName As String
Dim sNameNoMember As String
Dim i As Long
Set objOcc = objAsm.Occurrences.Item(1) ' just for test
Set objOccDoc = objOcc.OccurrenceDocument
sFilename = Trim(objOcc.OccurrenceDocument.FullName) ' filepath with possible member
sNameNoMember = sFilename
sMemberName = vbNullString
'
If objOcc.Subassembly Then
If objOcc.OccurrenceDocument.IsFileAlternatePositionByDocument Or _
objOcc.OccurrenceDocument.IsFileFamilyByDocument Then
i = InStrRev(sFilename, "!", -1, vbTextCompare)
If i > 0 Then
sMemberName = Mid(sFilename, i + 1) ' isolate member
sNameNoMember = Left(sFilename, i - 1) ' filepath without member
End If
End If
End If
==============