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