Select pagagraphs between two words and run macro

jeffreybrown · #1 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Attempting to find text, select words before it, and format the entire selection	KeviM	Word VBA	1	04-07-2017 05:36 PM
How to select all incorrect words in Word at once	Slavagl	Word	2	03-23-2017 11:15 PM
How to select different words at once	FTL	Word	5	03-08-2016 06:10 PM
Macro for select words?	Megan Sprack	Word	1	08-23-2012 03:03 PM
Macro to select tables	ubns	Word VBA	5	04-15-2012 11:44 PM