Sub Macro1()
Dim oRng As Range
Dim oPara As Paragraph
    If Len(Selection.Range) = 0 Then
        MsgBox "Nothing selected", vbCritical
        Exit Sub
    End If
    For Each oPara In Selection.Paragraphs
        If oPara.Range.Style Like "Heading #" Then
            Set oRng = oPara.Range
            oRng.Collapse 1
            oRng.MoveEndUntil Chr(9)
            oRng.End = oRng.End + 1
            oRng.Collapse 0
            oRng.Text = vbCr
            Set oRng = oRng.Next.Paragraphs(1).Range
            oRng.Style = "Normal"
        End If
    Next oPara
lbl_Exit:
    Set oPara = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub