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