Add a new paragraph after for each selected paragraph

[smallxyz]

Hi,

Suppose there are 3 paragraphs:

*********
******
******************

After highlighting them, the VBA would return :

*********

******

******************

Below is my attempted code, but it return infinite parapraphs.


Private Sub cmdLnBr_Click() Dim P As Paragraph
Application.ScreenUpdating = False
For Each P In Selection.Paragraphs
P.Range.InsertParagraphAfter
Next
Unload Me
End Sub

How should I amend it?
Thanks.

[gmayor]

See answer in duplicated thread at http://www.vbaexpress.com/forum/showthread.php?56684-Add-a-new-paragraph-after-for-each-selected-paragraph