find and replace only in current selection

gmayor · #1 11-12-2021, 02:10 AM

You could simplify it and the following should only apply to the selected text:

Code:

Sub Macro32()
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^t"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .MatchWildcards = False
        .Execute Replace:=wdReplaceAll
        .Text = "="
        .Replacement.Text = "^t^&"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Bikram · #2 11-12-2021, 03:08 AM

Thank you sir, for the reply!!
It works great but now also it replaces outside the selection to the end of the document but when I select only the characters of and apply then only it replaces in the selection but if I select the whole paragraph then it replaces outside of the selection.

I have attached a sample file to experiment.

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 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
Automatic find replace after selection in dropdown	vsempoux	Word	0	10-28-2009 08:45 AM