' 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
|