Select pagagraphs between two words and run macro

macropod · #2 09-08-2018, 04:02 PM

Try something along the lines of:

Code:

Sub Find_AFI_Ref()
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "References*Abbreviations and Acronyms"
    .Replacement.Text = ""
    .Forward = True
    .Format = False
    .MatchWildcards = True
    .Wrap = wdFindStop
    .Execute
  End With
  If .Find.Found = True Then
    .Start = .Paragraphs.First.Range.End
    .End = .Paragraphs.Last.Range.Start
    Call Format_AFI_References(.Duplicate)
  End If
End Sub

Note how the code passes the relevant range to Format_AFI_References, which you would now code as:

Code:

Sub Format_AFI_References(Rng as Range)
With Rng
…
End With
End Sub

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