Difference between revisions of "IsPartDocument"

From scripting
Jump to: navigation, search
(Created page with " Function IsPartDocument(CurObj As Variant) As Boolean On Error GoTo Blast Dim CurPD As PartDocument Set CurPD = CurObj IsPartDocument = True Exit Function Blast: IsPar...")
 
(No difference)

Latest revision as of 07:02, 22 April 2017

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