macro for outline headings

[feagin]

Is there a way to create a simple keyboard macro for each
heading level? I tried by recording keys and it does not
work.?

 

[Mark Tangard]

Hi Joe,

The first three are already assigned:

ALT+CTRL+1 for Heading 1
ALT+CTRL+2 for Heading 2
ALT+CTRL+3 for Heading 3

If you want shortcuts for the rest, write macros like this
below and assign them to shortcuts:

Sub ApplyHeading4
Selection.Paragraphs(1).Style = "Heading 4"
End Sub

Info on assigning a macro to a shortcut:
http://www.mvps.org/word/FAQs/Customization/AsgnCmdOrMacroToHotkey.htm

 

[feagin]

thanks for the useful info. Great.

Is there a list somewhere of all the key shortcuts? I see
the list in the customize/keyboard/all commands box, but
they all are apparently not there

can you set a zoom at 120 percent and tie it to a shortcut
key?

 

[Margaret Aldis]

Hi Joe and Mark

You can assign keyboard shortcuts directly to any style - no need for a
macro.

 

[Suzanne S. Barnhill]

Note also that you can use Alt+Shift+LeftArrow to promote Body Text to the
most recently used heading level and Alt+Shift+Left/Right Arrow to promote
and demote headings generally.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[Mark Tangard]

<slapping forehead> Agh. I knew that. Buried under the dry rot.

MT

 

[Mark Tangard]

Joe,

You can run the ListCommands command (no, I'm not stuttering)
by opening the Macros dialog (ALT+F8), choosing Word Commands
in the 'Macros In' box, and scrolling to ListCommands in the
macro list. This produces a profoundly space-wasting table
which nevertheless does show all the shortcuts.

Of course, a true Word geek makes his own damn shortcuts to
suit his specific preferences, and does it so thoroughly that
he often retains no recollection at all of the original hotkey
assignments, ahem.

You can set a zoom at any percentage, but to tie it to a
shortcut you'd have to put it in a little macro:

Sub ZoomTo120
ActiveWindow.ActivePane.View.Zoom.Percentage = 120
End Sub