IsPartDocument

From scripting
Jump to: navigation, search
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