list of macros

[Anton Santa]

Hi,
is there a way to obtain a list of all macros and if so, is there any
information in which model (add-in) it is stored (normal, activedocument,
addin-name)?
best regards
Anton Santa

 

[Helmut Weber]

Hi Anton,
1st, you need a reference to the
Microsoft Visual Basic for Applications Extensibility Library.
Then in principle like this, by fellow German MVP Christian Freßdorf:
http://www.chf-online.de/vba/vbalistmakronamen.htm

I copied this from his site as I think your german might not
be sufficient. Just in case ...

Though, you may have to overcome a problem I didn't master.
That is to get by the message "Programmatic access not trusted" or so,
as I have to translate the message from german.

Somebody else will know ...

And beware of linebreaks by the newsreader.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Option Explicit
Sub ListMacros()
Dim oApp As Word.Application
Dim myProject As VBProject
Dim myComponent As VBComponent
Dim strNames As Variant, strDocNames As String
Dim strFile() As String
Dim iCount As Integer
Dim strProc As String
Set oApp = GetObject(, "Word.Application")
' Alle Projekte durchlaufen
For Each myProject In VBE.VBProjects
strNames = ""
' Nur ungeschützte berücksichtigen
If myProject.Protection = vbext_pp_none Then
On Error Resume Next
If myProject.VBComponents.Count > 1 Then
strFile() = Split(myProject.FileName, "\")
strNames = strNames & myProject.Name & " (" & _
strFile(UBound(strFile())) & ")" & vbCrLf
On Error GoTo 0
' Alle Module durchlaufen
For Each myComponent In myProject.VBComponents
With myComponent
' Modul-Typ ermitteln
If .Type = vbext_ct_StdModule Then
strNames = strNames & vbTab & .Name & vbTab & " (bas)" &
vbCrLf
ElseIf .Type = vbext_ct_ClassModule Then
strNames = strNames & vbTab & .Name & vbTab & " (cls)" &
vbCrLf
ElseIf .Type = vbext_ct_MSForm Then
strNames = strNames & vbTab & .Name & vbTab & " (frm)" &
vbCrLf
ElseIf .Type = vbext_ct_Document Then
strNames = strNames & vbTab & .Name & vbTab & " (doc)" &
vbCrLf
End If
' Declaration auslesen
If .CodeModule.CountOfDeclarationLines > 0 Then
For iCount = 1 To .CodeModule.CountOfDeclarationLines
If .CodeModule.Lines(iCount, 1) <> "" Then
strNames = strNames & vbTab & vbTab & "Declaration" &
vbTab & " (" & _
.CodeModule.CountOfDeclarationLines & " Z.)" & vbCrLf
Exit For
End If
Next iCount
End If
' Prozeduren auslesen
strProc = ""
For iCount = 1 To .CodeModule.CountOfLines
If .CodeModule.ProcOfLine(iCount, vbext_pk_Proc) <> strProc Then
strProc = .CodeModule.ProcOfLine(iCount, vbext_pk_Proc)
strNames = strNames & vbTab & vbTab & strProc & vbTab & " ("
& _
.CodeModule.ProcCountLines(strProc, vbext_pk_Proc) & " Z.)"
& vbCrLf
End If
Next iCount
End With
Next myComponent
'MsgBox strNames
strDocNames = strDocNames & strNames & vbCrLf
End If
End If
Next myProject
' In Dokument ausgeben
Dim oDoc As Document
Set oDoc = Documents.Add
oDoc.Range.InsertAfter strDocNames
End Sub

 

[Jonathan West]

Hi Helmut,

As far as I am aware, the code you referred to is not able to extract the
macro names from a template or add-in whose VBA project has been protected
for viewing.

I'm not aware of any programmatic way of extracting a list of all such
macros.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Helmut Weber]

Hi Jonathan,

even here on my very own private PC, where never
anything was protected unless unvoluntarily, very unlikely BTW,
the access is not trusted...

I'll try to contact Christian Freßdorf
and will report later.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/