<div>
I want to do something like this after executing the second macro.<br />
<br />
KeyBindings.ClearAll<br />
&nbsp; &nbsp; DoEvents
</div>


<div>
To reset all keybindings back to their default setting, use this macro:<br />
<br />

<pre><code class="code-1 nolinks" id="code-20-39775219-1"><span>Sub RemoveCustomFunctionKeyBindings() </span>
<span>   CustomizationContext = NormalTemplate</span>
<span>   KeyBindings.ClearAll</span>
<span>End Sub</span>
</code></pre>
<br />
The macro can be placed in any normal module.
</div>


<div>
Thank you. &nbsp;But, I'd like to call this from another macro after that first macro sub executes. &nbsp;I don't want to go to the macros menus and select this. &nbsp;Is there a way that one module can issue a command to execute the one you just provided?
</div>


<div>
Sure!<br />
<br />

<pre><code class="code-10 nolinks" id="code-20-39775228-1"><span>Sub AddKeyBinding()</span>
<span>    With Application</span>
<span>         ' \\ Do customization in THIS document</span>
<span>        .CustomizationContext = ThisDocument</span>
<span>         </span>
<span>         ' \\ Add keybinding to this document Shorcut: Alt+0</span>
<span>        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey0), _</span>
<span>        KeyCategory:=wdKeyCategoryCommand, _</span>
<span>        Command:=&quot;TestKeybinding&quot;</span>
<span>    End With</span>
<span></span>
<span>   CustomizationContext = NormalTemplate</span>
<span>   KeyBindings.ClearAll</span>
<span></span>
<span>End Sub</span>
</code></pre>
But that kind a defeats the purpose, the custom keybindings will never be available.
</div>


<div>
I find that if I just at Keybindings.clearall to the last line of a macro that did the custom key bindings in the first place, the clearall function doesn't work. &nbsp;It's only when I put &quot;clear all&quot; in a separate macro and run it that a reset of the bindings actually occurs.<br />
<br />
What is the preferred way to handle this issue, or am I doing something wrong?
</div>


<div>
I want to toggle back and forth.
</div>


<div>
Thanks, Pasted this code but if I hit Alt + 0, the custom code still executes. &nbsp;I want the command &quot;TestKeybinding&quot; to execute (it shows a msgbox). Then have Alt +0 stop working.<br />
<br />
Things are still bound in a custom fashion. &nbsp;But, if you put the &quot;clearall&quot; in a separate macro and run that separately, the default binding is restored. &nbsp;So, &nbsp;how does one call the separate macro programmatically without having to go to the macros menu?
</div>


<div>
Something like:<br />
<br />
Application.Run MacroName:=”MacroNameFromL<wbr />ist” ?
</div>


<div>
Still doesn't reset the bindings to default. &nbsp;The code is executing since I have a msgbox confirm execution of the clearbindings macro. Awarding points for your greatly appreciated efforts. There must be a way to have a custom key binding execute in a macro and then return that keybinding to it's default status.
</div>


<div>
I added DoEvents after the keybindings.clearall. &nbsp;This helps but if that macro is called by another one, it doesn't work.<br />
<br />
So, Module1 sets the custom bindings and calls module 2. &nbsp;Module 2 has keybindings.clearall statement. &nbsp;Without DoEvents, it doesn't work. &nbsp;With DoEvents it does, IF you execute module 2 directly from the macros menus. &nbsp;But things aren't reset when module 1 calls module 2.
</div>


<div>
<div class="content wysiwyg-content">
I found this code on the internet, VBA Express website, I believe:<br />
<br />
'Module1:<br />
<br />
Sub AddKeyBinding()<br />
&nbsp; &nbsp; With Application<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' \\ Do customization in THIS document<br />
&nbsp; &nbsp; &nbsp; &nbsp; .CustomizationContext = ThisDocument<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' \\ Add keybinding to this document Shorcut: Alt+0<br />
&nbsp; &nbsp; &nbsp; &nbsp; .KeyBindings.Add KeyCode:=BuildKeyCode(wdKe<wbr />yAlt, wdKey0), _<br />
&nbsp; &nbsp; &nbsp; &nbsp; KeyCategory:=wdKeyCategory<wbr />Command, _<br />
&nbsp; &nbsp; &nbsp; &nbsp; Command:=&quot;TestKeybinding&quot;<br />
&nbsp; &nbsp; End With<br />
End Sub<br />
<br />
&quot;TestKeybinding&quot; is a sub in another module, &quot;module2&quot;<br />
<br />
If I wanted to reset the keybindings back to the default setting, how should the code be modified? &nbsp;Would I put it at the end of module2, or at the end of module1?
</div>
</div>


I found this code on the internet, VBA Express website, I believe:

'Module1:

Sub AddKeyBinding()
    With Application
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument
         
         ' \\ Add keybinding to this document Shorcut: Alt+0
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey0), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="TestKeybinding"
    End With
End Sub

"TestKeybinding" is a sub in another module, "module2"

If I wanted to reset the keybindings back to the default setting, how should the code be modified?  Would I put it at the end of module2, or at the end of module1?

reset keybinding word vba macro

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,

Visual Basic.NET

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Most development for the Microsoft platform is done utilizing the technologies supported by the.NET framework. Other development is done using Visual Basic for Applications (VBA) for programs like Access, Excel, Word and Outlook, with PowerShell for scripting, or with SQL for large databases.