I had this, which obtained the part document filename.
' PartNo = Left((oPCompRef.ReferencedFileDescriptor.DisplayName),
Len(oPCompRef.ReferencedFileDescriptor.DisplayName) - 4)
Now I want this, to obtain the part number from within the part document.
PartNo =
oPCompRef.ImmediateOccurrences.Item(1).Definition.Document.PropertySets.Item
("{32853F0F-3444-11D1-9E93-0060B03C1CA6}").ItemByPropId(kDescriptionDesignTr
ackingProperties).Value
MsgBox PartNo
Msgbox PartNo produces a value of nothing. Any help is greatly appreciated!