|
ED
|
avaliable
|
RT
|
avaliable
|
Returns a menu item by position or name of item.
Sub ItemMenus() Dim zMenus As ZenMenus 'Parent object Dim zMenu As ZenMenu 'Child object of ZenMenus Dim zMenuItem As ZenMenuItem 'Child object of ZenMenu Set zMenus = MyWorkspace.ActiveDocument.ZenMenus 'Select a main menu Set zMenu = zMenus.Item(1) 'Select the first item of the main menu Set zMenuItem = zMenu.Item(0) Debug.Print "Name of menu item = " & zMenuItem.Name End Sub