IsPartDocument
From scripting
Function IsPartDocument(CurObj As Variant) As Boolean On Error GoTo Blast Dim CurPD As PartDocument Set CurPD = CurObj IsPartDocument = True Exit Function Blast: IsPartDocument = False End Function