Microsoft Office Forums - View Single Post - [Solved] Select between headings excluding section break

shistris03 · 06-20-2021, 06:17 AM

Hi guys,

I am using the following code to select between headings for each page at once (not for the whole document). Is there a way to select between headings excluding the section break which I have at the end of each page? The structure of all my pages is as follows:
Page 1:
Heading
Text
Section break

Page 2:
Heading
Text
Section break

Code:

Sub selectbetweenheadings()
'
' selectbetweenheadings Macro
'
'
    Dim p As Paragraph
    Dim i As Long
    Dim reverseFlag As Boolean
    
    reverseFlag = True
    
    'Move the selection forward one paragraph
    'Assumption: The entire first heading paragraph is selected.
    'If not, you'll need to move forward 2.
          If Selection.MoveEnd(wdParagraph, 1) = 1 Then
        Do
            i = Selection.Paragraphs.Count
            Set p = Selection.Paragraphs(i)
            If Left(p.style, 7) = "Heading" Then Exit Do
            'Paragraph is not a heading. try the next one
            If Selection.MoveEnd(wdParagraph, 1) = 0 Then
                'We're at the end of the document
                reverseFlag = False
                Exit Do
            End If
        Loop
    End If
    
    If reverseFlag Then Selection.MoveEnd wdParagraph, -1
End Sub

Thank you.