Search & Replace Text in Selection/Range

ArchieDog · May 4th, 2009, 12:01 PM

Hi All

I would like to search for & replace text sometimes in just a portion of a document. I have tried the following:

Code:

Set rngArea = Selection.Range
    With rngArea.Find
        .Forward = True
        .Wrap = wdFindContinue
        .Text = "This Text"
        .Replacement.Text = "That Data"
        .Execute Replace:=wdReplaceAll
    End With

However this also finds/replaces text when it is outside of the specified range. I have also tried selecting the text in the range first and using the following:

Code:

Sub SR()
    With Selection.Find
        .Text = "This Text"
        .Replacement.Text = "That Data"
        .Forward = True
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
    End With
End Sub

I am clearly totally misunderstanding the way this is supposed to work.

Please can you help me?

Archie

Shasur · May 5th, 2009, 02:17 AM

Hi Archie

Change the wrap to wdWrapStop as in

Code:

 

Sub Search_Within_SelectedArea()
Dim rngArea As Range
Set rngArea = Selection.Range
    With rngArea.Find
        .Forward = True
        .Wrap = wdFindStop
        .text = "This Text"
        .Replacement.text = "That Data"
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Cheers
Shasur

Shasur · May 5th, 2009, 02:19 AM

Hi Archie

You need to change Wrap to wdFindStop

Sub Search_Within_SelectedArea()
Dim rngArea As Range
Set rngArea = Selection.Range
With rngArea.Find
.Forward = True
.Wrap = wdFindStop
.text = "This Text"
.Replacement.text = "That Data"
.Execute Replace:=wdReplaceAll
End With
End Sub

Cheers
Shasur

ArchieDog · May 5th, 2009, 02:21 AM

Works a treat. Thank you so much.

Archie