How to remove VBA code programmatically?

By Philippe Leefsma

Here is a question we often get from ADN support:

My Inventor documents contain embedded VBA code. I no longer need them. Is there any way to remove the VBA code programmatically?

Solution

You can access the VBA object model using Document.VBAProject property. The code to remove VBA code for active document is exposed below (VB.Net):

Note: Need to add a reference to "Microsoft Visual Basic for Applications Extensibility 5.3"

    Sub RemoveVBA()

        Dim m_inventorApp As Inventor.Application = Nothing

        ‘ Try to get an active instance of Inventor

        Try

            m_inventorApp = System.Runtime.InteropServices. _

                Marshal.GetActiveObject("Inventor.Application")

        Catch ex As Exception

            ‘ If not active, create a new Inventor session

            If m_inventorApp Is Nothing Then

                Dim inventorAppType As Type = _

                    System.Type.GetTypeFromProgID("Inventor.Application")

                m_inventorApp = _

                    System.Activator.CreateInstance(inventorAppType)

            End If

        End Try

        Dim oDoc As Document

        oDoc = m_inventorApp.ActiveDocument

        Dim oVBComp As VBComponent

        Dim i As Integer

        For i = oDoc.VBAProject.VBProject.VBComponents.Count To 1 Step -1

            oVBComp = oDoc.VBAProject.VBProject.VBComponents(i)

            If oVBComp.Type <> vbext_ComponentType.vbext_ct_Document Then

                Call oDoc.VBAProject.VBProject.VBComponents.Remove(oVBComp)

            End If

        Next i

        ‘ remove lines

        oVBComp = oDoc.VBAProject.VBProject.VBComponents(1)

        oVBComp.CodeModule.DeleteLines(1, oVBComp.CodeModule.CountOfLines)

    End Sub

<

p style=”line-height: normal;margin: 0in 0in 0pt” class=”MsoNormal”>