![classic menu for word 2013 classic menu for word 2013](https://gregmaxey.com/images/word_tips/classic_wordart_5.png)
In the example, I added four button controls.
#Classic menu for word 2013 how to#
See: Installing Macros for instructions on how to set up and use the macros provided in this Microsoft Word Help & Microsoft Word Tips page. & vbCr + vbCr & "Recommend you save those changes now.", vbInformation + vbOKCancel, _ If MsgBox("This action caused a change to your Add-In template." _ Set oBtn = Application.CommandBars("Text").Controls.Add(msoControlButton, 758,, 2) 'Add control using built-in ID 758 (Boo&kmarks.) Set oBtn = CommandBars.FindControl(Tag:="custCmdBtn") 'Or add individual commands directly to menu OnAction = "MySCMacros.MyInsertAutoText" 'Add a Builtin command using ID 1589 (Co&mments) 'Identify the module and procedure to run Set oPopUp = CommandBars("Text").Controls.Add(msoControlPopup,, , 1) 'Add PopUp menu control to the top of the "Text" short-cut menu
![classic menu for word 2013 classic menu for word 2013](https://i.pinimg.com/736x/84/e6/e6/84e6e679ab043371d2e0331ffd9fa1ff--mobile-news-menus.jpg)
If Not oPopup Is Nothing Then GoTo Add_Individual Set oPopup = CommandBars.FindControl(Tag:="custPopup")
![classic menu for word 2013 classic menu for word 2013](https://www.addintools.com/documents/office/images/where-select-all/shot-office-select-all-word-1.png)
The illustration below shows the PopUp menu and new commandbar controls added at the top of the "Text" shortcut menu.ĬustomizationContext = ThisDocument.AttachedTemplate
#Classic menu for word 2013 code#
You can download this file which contains all of the code used to create the examples using the link at the end of this tips page. To develop and describe these procedures, I have created a global template add-in file named Customize Shortcut Menu.dotm. However, as the shortcut menus are contextual, there are situations when it will be replaced by another menu and not be displayed. Note: The "Text" shortcut menu is probably the most prevalent when users right click their mouse.