So that would be the "next" paragraph:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oPar As Paragraph
Dim oRng As Range
For Each oPar In ActiveDocument.Paragraphs
Select Case oPar.Style
Case "Heading 1", "Heading 2", "Heading 3" 'etc.
Set oRng = oPar.Next.Range
oRng.End = oRng.End - 1
oRng.Text = "Start " & oRng.Text & " End"
End Select
Next oPar
lbl_Exit:
Exit Sub
End Sub