Macro to wrap each section in a document with some text

[mattbrad]

I am trying to create a macro that runs through a document section by section and then inserts some text at the start and end of the section.

e.g. Before

Heading 1
Some text here
Heading 2
Some text here
SubHeading2.1
Table here


Sub Heading 2.2
Table Here
Some Text Here

After
Heading 1
STARTSome text hereEND
Heading 2
STARTSome text hereEND
SubHeading2.1
STARTTable hereEND
Sub Heading 2.2
STARTTable Here
Some Text HereEND

When I run ActiveDocuments.Sections.Count, it returns 1 so I can seem to loop over it?

Is this something to do with the way the sections have been added?

[gmaxey]

Because those aren't sections. They are paragraphs with Heading Styles applied (or that's what they should be).

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.Range
        oRng.End = oRng.End - 1
        oRng.Text = "Start " & oRng.Text & " End"
    End Select
  Next oPar
lbl_Exit:
  Exit Sub
End Sub

[mattbrad]

Thanks for the clarification and help. The macro you suggested seems to just wrap the title of the section with the "Start" and "End" text. I would like the paragraph under the heading to have the text wrapped.

[gmaxey]

So that would be the "next" paragraph:

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