Find and replace only the last match

alex100 · #1 01-13-2021, 03:04 AM

The code below will find and replace all keywords in a selection.

Code:

With Selection.Find
    .ClearFormatting
    .Text = "keyword"
    .Replacement.Text = "replacement_keyword"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

How can I rewrite it so that it will only replace the last keyword in the selection? So, if it happens there are multiple keywords in the text, only the last match should be replaced, while the others before it should not be changed.

Alex

macropod · #2 01-13-2021, 03:10 AM

That's as simple as changing:
.Forward = True
to
.Forward = False
and:
wdReplaceAll
to:
wdReplaceOne

alex100 · #3 01-13-2021, 07:27 AM

Quote:

Originally Posted by macropod

That's as simple as changing...

Thank you, Paul! Just what I needed...

Indeed, very simple, but only for those that know their craft! For the rest of us (starting with me), things can be tricky and time consuming... ;-)

Alex

macropod · #4 01-13-2021, 01:06 PM

A bit of time spent in the VBA help files could have led you to that solution.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do you use the find and replace tool to find dates and times in Excel 2013?	Jules90	Excel	3	04-14-2020 07:40 PM
In Find and Replace, can Word stop after each Replace?	wardw	Word	1	06-08-2017 02:47 PM
Find a match and move row to top of page	Auto	Excel Programming	3	03-08-2016 01:17 AM
Find what box in Find and replace limits the length of a search term	Hoxton118	Word VBA	7	06-10-2014 05:05 AM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM