Microsoft Office Forums - View Single Post - [Solved] Select pagagraphs between two words and run macro

jeffreybrown · 09-08-2018, 03:32 PM

This macro is working fine to select all of the paragraphs between two specific words, but it's also selecting the end of the first word thereby changing the style on the first word. I would only like the paragraphs in-between the two words selected.

Is there an adjustment that can be made with this macro?

Code:

Sub RevisedFindIt()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim strTheText As String
    Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:="References") Then
        Set rng2 = ActiveDocument.Range(rng1.End, ActiveDocument.Range.End)
        If rng2.Find.Execute(FindText:="Abbreviations and Acronyms") Then
            ActiveDocument.Range(rng1.End, rng2.Start).Select
            Call Format_AFI_References
        End If
    End If
End Sub

References

Paragraph 1
Paragraph 2
Paragraph 3
etc.,

Abbreviations and Acronyms