I liked the idea so much I put it into my system. I also made the following
variation that I expect to use more often.
Sub AltShiftEnter()
' Apply style for next paragraph to new paragraph broken in middle
' When in middle of paragraph, breaks paragraph and applies style for next
' to the new paragraph
' Assigned to key combination Alt-Shift-Enter
' 24 March 2005
Dim NextStyle As Style
Set NextStyle =
ActiveDocument.Styles(Selection.Style).NextParagraphStyle
Selection.TypeParagraph
Selection.Style = NextStyle
End Sub
I only tested it briefly but it seems to work. I often find that I want to
break a paragraph in the middle and have the style for next paragraph
applied to the new paragraph rather than keeping the original style.
--
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.