- #HOW TO CREATE A SHORTCUT ON DESKTOP TO MS WORD 2016 HOW TO#
- #HOW TO CREATE A SHORTCUT ON DESKTOP TO MS WORD 2016 CODE#
You may have noticed that I used the FaceId property of the CommandBar controls in several instances. 'Delete individual custom commands on the Text menu.įor Each oCtr In Application.CommandBars("Text").Controls
![how to create a shortcut on desktop to ms word 2016 how to create a shortcut on desktop to ms word 2016](https://tipsmake.com/data/images/how-to-set-up-shortcuts-on-microsoft-word-2016-yourself-picture-4-w0qev1Z9J.jpg)
'Delete individual commands on the PopUp menu. Set oPopUp = CommandBars("Text").Controls("My Very Own Menu") 'Make command bar changes in Add-In template The "On Action" procedures are the procedures that you provide and set to run when the user clicks on the control.
![how to create a shortcut on desktop to ms word 2016 how to create a shortcut on desktop to ms word 2016](https://1.bp.blogspot.com/-tH2VGwWHGRo/YQL6I5_Th_I/AAAAAAAABKo/rP_3UYn93C4bKAEn7OIQqOxPYG0LCanPACLcBGAsYHQ/w320-h245/How-can-create-Shortcut-Microsoft-word-on-Desktop.jpg)
Both of the custom controls (i.e., controls that aren't assigned a built-in Id) references an "On Action" procedure. Two built-in Word button commands and two custom buttons controls. In the example, I added four button controls.
#HOW TO CREATE A SHORTCUT ON DESKTOP TO MS WORD 2016 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." _
![how to create a shortcut on desktop to ms word 2016 how to create a shortcut on desktop to ms word 2016](http://3.bp.blogspot.com/-LneIxa3SrEs/VIibpsQ_OCI/AAAAAAAABUU/m1t14j0N1k4/s1600/Microsoft-windows-shortcut-key.png)
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 If Not oPopup Is Nothing Then GoTo Add_Individual Set oPopup = CommandBars.FindControl(Tag:="custPopup") The illustration below shows the PopUp menu and new commandbar controls added at the top of the "Text" shortcut menu.ĬustomizationContext = ThisDocument.AttachedTemplate
#HOW TO CREATE A SHORTCUT ON DESKTOP TO MS WORD 2016 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.
![how to create a shortcut on desktop to ms word 2016 how to create a shortcut on desktop to ms word 2016](https://www.isumsoft.com/images/office/microsoft-office-word-missed-from-right-click-context-menu/start-a-new-word-program.png)