Code changes from this code to print queries necessary to print out macro definitions

In searching the web for a method to print out macro definitions, I
found this code from Allen Browne to print out query definitions. Is
there a similar way to print out macros?
>
Public Function ShowAllQueries()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
>
Set db = CurrentDb()
For Each qdf In db.QueryDefs
Debug.Print qdf.Name, qdf.SQL
Next
End Function
>
In other words, does DAO or some other object expose something like a
MacroDef, similar to a QueryDef?
>
Thank you.

>"Newbie" <Newbie@gmail.comwrote in message
><avfjf2162rcbgg6vbkmikqr736aragur7a@4ax.com>:

>
>I don't think Macros are exposed the same way. You can dump their
>contents to a text file, and take it from there. Air code.
>
>dim ao as accessobject
>for each ao in currentproject.allmacros
application.saveastext acmacro, ao.name, "c:\" & ao.name & ".txt"
>next ao