Keep with Next Macro

Question

I'm hoping someone can help me with a Keep With Next macro.  I don't see that it's listed in any of the options in the command buttons selections so I'm looking to add it programatiacally with a Macro which I'll put on one of the toolbars.  Does anyone have something like this?  I'd like it to simply toggle the selected paragraph. 

We use it quite often and going to Format/Paragraph/Line and Page Breaks Tab/select or deselect Keep with Next option is a lot of work.  Clicking a button makes WAY more sense. 

Can someone help me out with a macro for this please?

I thank you for your help in advance! 

~Dax

Answer 1

Perhaps this?

Sub ToggleKeepWithNext()

    With Selection.Paragraphs(1)

        .KeepWithNext = Not .KeepWithNext

    End With

End Sub

Answer 2

Not only can you assign a keyboard shortcut to ParaKeepWithNext, you can assign it to a toolbar button. For a nice-looking button icon, see http://sbarnhill.mvps.org/WordFAQs/CustomToolbar.htm. The button has the added advantage that when you click in a document, the on/off status of the button shows whether the property has been applied to the paragraph at the insertion point.

Answer 3

YES!!!  That rocks!  Thank you!!!!  ~Dax

Answer 4

Even easier, how about attaching the command to a shortcut? It is the format command ParaKeepWithNext.

Tools > Customize > Keyboard

One other method would be a Style with the setting for the following Style reverting to the original Style.