' Display information about a command

SUB ShowCommand( ByRef oCommand )

logmessage "--------------------------------"

logmessage "Name: " & oCommand.Name

logmessage "FileName: " & oCommand.FileName

logmessage "Handler: " & oCommand.Handler

logmessage "Language: " & oCommand.language

logmessage "Type: " & oCommand.type

END SUB

set oAllCommands = Application.Commands

' Get all custom commands

set oCustomCommands = oAllCommands.Filter("Custom")

' Display all custom commands

FOR EACH oCommand IN oCustomCommands

ShowCommand oCommand

NEXT