Community
Hello,
(I'm a newbie with VBA Inventor.)
I'd like to write a private sub in a module that would be called from the main Sub.
I'd like to have the active document as a parameter for this private sub but I can't find the solution to make it works.
Thanks for any help
Dim oInvDoc As Document Set oInvDoc = ThisApplication.ActiveDocument If oInvDoc.DocumentType = kAssemblyDocumentObject Then updateTag(oInvDoc) endif Private Sub updateTag(oDoc As Document) Dim oDocu As Document Set oDocu = oDoc .. End Sub
If oInvDoc.DocumentType = kAssemblyDocumentObject Then
call updateTag(oInvDoc)
endif