VBA: Access PartDocume​nt object of iPart Factory, given iPart Member.

[CragMonkey]

How do I access the PartDocument object belonging to the iPart Factory that generated a given iPart Member?

Is there a way to access the file name of the factory that generated an iPart Member?

Dim oModelMember As PartDocument
Dim oModelFactory As PartDocument

Set oModelMember = ThisApplication.Documents.Open("C:\Temp\Handholds\142 - HH Style 13\142-32-1995 HANDHOLD, STYLE 13R.ipt", False)
Set oModelFactory = ThisApplication.Documents.Open("C:\Temp\Handholds\142 - HH Style 13.ipt", False)

I want to be able to open oModelFactory given oModelMember. I will be iterating through over a hundred different oModelMembers, so doing this manually would be tedious.

Any ideas? 

[JohanLarsson · Accepted solution]

I have not used iParts much and dont know if this is what you want to do:

Public Sub PartTest()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
    MsgBox (oPartDoc.ReferencedDocumentDescriptors(1).FullDocumentName)
End Sub