Counting userforms and items?

Question

Hi i am trying to count the amount of userforms in a document

and also the amount of fields on the userform. is this possible via VBA? Thanks

effectively want something like:

activedocument .forms .count

activedocument.forms.textbox.count

Thanks

Answer 1

Set a reference to "Microsoft Visual Basic for Applications Extensibility" in the VBA editor, then execute the code below. It should be no problem to add a counter, right?

Andreas.

Sub Test()

  Dim VBcomp As VBComponent

  Dim C As Control

  'Visit each component in this file

  For Each VBcomp In ThisDocument.VBProject.VBComponents

    'What is it?

    Select Case VBcomp.Type

      Case vbext_ct_MSForm

        Debug.Print "Userform: "; VBcomp.Name

        'Visit the controls on this form

        For Each C In VBcomp.Designer.Controls

          Debug.Print "  Control: "; C.Name

        Next

    End Select

  Next

End Sub

Answer 2

There is a help available for this in VBA, place the cursor on VBComponent and press F1.

See also the help for CodeModule, explore the properties and methods for both. There are also some small examples.

You can also find many example in the web, e.g. search for

vba codemodule.addfromstring

Andreas.

Answer 3

Thanks for this it's exactly what i wanted!

Do you have any links to where i can read more about the extensions in  theVisual Basic for Applications Extensibility" reference sounds like it might be full of useful goodies for me!