Did I get around to referring you to:
http://word.mvps.org/FAQs/Customization/AsgnCmdOrMacroToHotkey.htm
This works with styles, too.
If you look in help under keyboard shortcuts you can find them all. There
are a lot.
You can also print a list. File > Print
Where it says Print what? change "document" to "key assignments"
The following macro will change the key assignments for headings 4-9 to
match those for 1-3.
Sub AttachKeysToHeadings()
'
' AttachKeysToHeadings Macro
' Macro written 5/20/2004 by Charles Kyle Kenyon
' Adds Key bindings for Heading 4-9 styles to active document
'
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey4, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 4"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey5, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 5"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey6, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 6"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey7, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 7"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey8, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 8"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKey9, wdKeyControl, wdKeyAlt), _
KeyCategory:=wdKeyCategoryStyle, Command:="Heading 9"
End Sub
You would run it in a template you are creating to be a global template.
Then when the template is loaded, it would apply in all documents.
The following macro attaches Alt-H and then a number to the corresponding
headings. I'm not sure if that is what you meant but I can't get a three-key
combination to work where two of the keys are not shift keys.
Sub AttachHtoHeadings()
'
' AttachHtoHeadings Macro
' Macro written 5/20/2004 by Charles Kyle Kenyon
' Adds Key bindings for Heading 1-9 styles to active document
' Press Alt-H and then the number for the style
'
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey1), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 1"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey2), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 2"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey3), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 3"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey4), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 4"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey5), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 5"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey6), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 6"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey7), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 7"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey8), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 8"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey9), KeyCategory:=wdKeyCategoryStyle,
Command:="Heading 9"
End Sub
Something similar could be developed with your other shortcuts or you could
use the Customize Keyboard dialog.
Sorry I can't help with the cleanup macro. When you have the document open
from your normal97.dot, check your macro list. Is it there? You can use the
Organizer to move macros as well as styles. And as you may have guessed, you
can assign keyboard shortcuts to macros, too.
--
Charles Kenyon
Word New User FAQ & Web Directory:
http://addbalance.com/word
Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide)
http://addbalance.com/usersguide
See also the MVP FAQ:
http://www.mvps.org/word which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.
Sheila said:
I printed out the move to template article so I could read it and figure it out.
I was not aware of the build-in keyboard shortcuts. I did the 3 you
listed and it worked fine. What are all the build-in shortcuts. I need a
lot more than that. Some examples Heading up to 9, (a) alpha listing, (1)
numerical listing, 1st bullet, 2nd dash, 3rd diamond, 4th dash, leading,
note TOC, etc. If I can find out what is currently available then maybe I
will not have to rebuild some. I guess there is no difference in
Ctrl-Alt-1 or Alt-H-1 other than learning what keys to press. Is it is a
lot of work to make them Alt-H-1 instead of Ctrl-Alt-1? If so, I'll
memorize again.
I did notice that I do not have the cleanup macro anymore that was used
with 97. I use highlight the document, tools, macro, macros and then in the
list there use to be one called cleanup. I do not see that anymore. How do
I accomplish that?