Visible Inventor Drawings - Vault Check In

[SPALANIAPPANTN47S]

Hi Guys,

I need to check in the multiple drawing files into vault by default macros in inventor.

For that, I tried using with the below code. 

Sub CheckInMultipleOpenDrawings()

Dim oDoc As Inventor.Document

For Each oDoc In ThisApplication.Documents.VisibleDocuments

If oDoc.DocumentType <> kDrawingDocumentObject Then
GoTo NextDoc

ElseIf oDoc.DocumentType = kDrawingDocumentObject Then

oDoc.Activate

oDoc.Save

Set ControlDefinition = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
ControlDefinition.Execute2 (True)

oDoc.Close
End If

NextDoc:
Next

MsgBox "Checked-in the drawings"
End Sub

While using the above code, it will checking in only first and last file. Not working for all the opened drawing files.

For example , If i opened 5 drawings (Drawing number from 101 , 102, 103, 104 & 105)

Only 101 & 105 are getting checked in.

If u have any ideas to check all drawings..

Please suggest..

Thanks in advance..

@JhoelForshav @CGBenner @WCrihfield @Anonymous @Cadmanto @L.Greft @bradeneuropeArthur 

[bradeneuropeArthur]

Have you tried this:

Sub CheckInMultipleOpenDrawings()

Dim oDoc As Inventor.Document

For Each oDoc In ThisApplication.Documents.VisibleDocuments

If oDoc.DocumentType <> kDrawingDocumentObject Then
GoTo NextDoc

ElseIf oDoc.DocumentType = kDrawingDocumentObject Then

oDoc.Activate

oDoc.Save

Set ControlDefinition = ThisApplication.CommandManager.ControlDefinitions.Item("VaultCheckinTop")
ControlDefinition.Execute

oDoc.Close
End If

NextDoc:
Next

MsgBox "Checked-in the drawings"
End Sub

Otherwise.

Can you let me show the:

Vault options in inventor each dialog and settings, a screenshot please!

A screenshot of the vault browser for each drawing that keeps checked out.