Difference between revisions of "IsProductDocument"

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

Latest revision as of 07:02, 22 April 2017

Function IsProductDocument(CurObj As Variant) As Boolean
On Error GoTo Blast
Dim CurPD As ProductDocument
Set CurPD = CurObj
IsProductDocument = True
Exit Function
Blast:
IsProductDocument = False
End Function