Printing a Macro List

I'm using Win 11 Word 2021
I realise this is not a recent Tip but
Once I got Ken Endacott's macro to work it was very much what I needed, (I've only just found it) so someone else may benefit from this:
Ken's comment states:
"Before running the macro make sure that "Microsoft Visual Basic for Applications Extensibility 5.3" is checked in Tools > References".
I found that I had t also access the Trust Center settings thus: select File>Options>Trust Center>Trust Center Settings>Macro Settings and then check the box against Trust access to the VBA Project Object Model.
This 'nugget' came from - OssieMac Microsoft Comunity Moderator in his Excel version for listing modules and subs.

The document created as described in the first part of the tip is very useful. Beware however, that for user macros the two other columns: Modifier and Key, are not showing the shortcut keys even if they are assigned to the macro. At least this is the result I got in my limited testing.

There was another tip that showed how to print key assignment list, which includes only user-assigned keys.
https://wordribbon.tips.net/T009256_Printing_a_Key_Assignment_List

Unluckily, I was not able to find something similar for Excel :-( On the other hand, an approach proposed by Ken Endacott should work. I think I saw an Excel tip recently with a similar macro.

@Kiwerry: this may be relevant to our recent discussion.

Kiwerry,

If the macro is your document for example MyMacros.docm, open MyMacros.docm then open Normal.dotm. Minimise MyMacros.docm leaving Normal.dotm visible and run the macro.

Regarding Public and Private it is just a matter of adding
Or Left(s,6) = “Public” Or Left(s,7) = “Private”

There is a shortcoming to the macro as it stands. It only finds macros in modules, it doesn’t find macros in other parts of the project such as controls.

Thanks for a useful tool, Ken. I have a question and a comment:

How can I get a list of the procedures in my Normal template? I tried replacing fname with the full path of Normal.dotm ("c:\Users\[anon]\AppData\Roaming\Microsoft\Templates\Normal.dotm") but that generated a "Bad File Name" error. The name was correct: I navigated to the file and transferred the full path to the code using the clipboard.

If one has used the Public or Private qualifiers then the check for a sub or function will have to be more than just looking at the first three characters in a line (If Left(s, 3) = "Sub" ...)

Here is a macro that will create a list of macros in the currently open document or template. For example if you want a list of macros in the Normal template then open the template and run the macro.
The list is copied into a new document.
Before running the macro make sure that "Microsoft Visual Basic for Applications Extensibility 5.3" is checked in Tools > References.


Sub CreateMacroList()
' Microsoft Visual Basic for Applications Extensibility 5.3
' must be set in Tools > References
Dim vbComp As VBIDE.VBComponent
Dim fName As String
Dim s As String
Dim j As Long
Dim k As Long
fName = ActiveDocument.Name
Documents.Add
For Each vbComp In Documents(fName).VBProject.VBComponents
If vbComp.Type = vbext_ct_StdModule Then
Selection.TypeText vbCrLf & vbComp.Name & vbCrLf
j = vbComp.CodeModule.CountOfLines
If j > 0 Then
For k = 1 To j
s = Trim(vbComp.CodeModule.Lines(k, 1))
If Left(s, 3) = "Sub" Or Left(s, 6) = "Function" Then _
Selection.TypeText s & vbCrLf
Next k
End If
End If
Next vbComp
ActiveDocument.Range.NoProofing = True
End Sub