active document as sub parameter

[^_^clovis^_^]

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

[Rene_Gerlach]

Try this:

If oInvDoc.DocumentType = kAssemblyDocumentObject Then
  call updateTag(oInvDoc)
endif