Z
zSplash
I am trying to set 2 keys on the keyboard to run code from MyAddin, on the
server. I've tried the following unsuccessfully. (See the commented-out
code for what I also tried.) How can I reference an Addin when defining a
key?
Sub setKeys()
Dim myAddin As AddIn
Set myAddin = "g:\myAddin.dot" '"myAddin.dot"
CustomizationContext=NormalTemplate
KeyBindings.add KeyCode:=BuildKeyCode(wdKeyF12), KeyCategory:= _
wdKeyCategoryMacro, Command:="time" 'myAddin.time"
CustomizationContext = NormalTemplate
KeyBindings.add KeyCode:=BuildKeyCode(wdKeyInsert), KeyCategory:= _
wdKeyCategoryMacro, Command:="Send"
End Sub
TIA
server. I've tried the following unsuccessfully. (See the commented-out
code for what I also tried.) How can I reference an Addin when defining a
key?
Sub setKeys()
Dim myAddin As AddIn
Set myAddin = "g:\myAddin.dot" '"myAddin.dot"
CustomizationContext=NormalTemplate
KeyBindings.add KeyCode:=BuildKeyCode(wdKeyF12), KeyCategory:= _
wdKeyCategoryMacro, Command:="time" 'myAddin.time"
CustomizationContext = NormalTemplate
KeyBindings.add KeyCode:=BuildKeyCode(wdKeyInsert), KeyCategory:= _
wdKeyCategoryMacro, Command:="Send"
End Sub
TIA