|
ED
|
avaliable
|
RT
|
not used
|
With this function new context and main menu items can be created.
Sub CreateMenuItem() 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 context or main menu Set zMenu = zMenus.Item(0) 'Create an item with the name "Test" in the selected menu Set zMenuItem = zMenu.Create("Test", True) End Sub