find text and replace text excel word vba

Question

I have the following codes

  Sub DocSearch()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Documents and Settings\Owner\My Documents\downloads\work\M-F-380.1.doc")
With wdDoc.Content.Find
  .Text = "Date:"
  .Replacement.Text = "Datetest"
  .Wrap = wdFindContinue
  .Execute Replace:=wdReplaceAll
End With
Set wdApp = Nothing: Set wdDoc = Nothing
End Sub

The above works fine and i have added the following in the above vba codes and its not working

With wdDoc.Content.Find
  .Text = "Date:"
  .Replacement.Text = "Datetest"
   Text = "Prime Lending Rate"
  .Replacement.Text =" Repo Rate"
  .Wrap = wdFindContinue
  .Execute Replace:=wdReplaceAll

Your help will be highly appreciated

Thanks

1. You will have to use a loop if you want to replace multiple text 2. You are missing a . (DOT) before the 2nd Text. Change Text = "Prime Lending Rate" to .Text = "Prime Lending Rate" — Siddharth Rout
– Siddharth Rout, Commented Jan 21, 2021 at 4:41

macropod · Accepted Answer · 2021-01-21 06:50:01Z

1

You need to have:

.Execute Replace:=wdReplaceAll

between each set of F/R expressions, thus:

Sub DocSearch()
Dim wdApp As Object, wdDoc As Object
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\Documents and Settings\Owner\My Documents\downloads\work\M-F-380.1.doc")
With wdDoc.Content.Find
  .Wrap = wdFindContinue
  .Text = "Date:"
  .Replacement.Text = "Datetest"
  .Execute Replace:=wdReplaceAll
  .Text = "Prime Lending Rate"
  .Replacement.Text = " Repo Rate"
  .Execute Replace:=wdReplaceAll
End With
Set wdApp = Nothing: Set wdDoc = Nothing
End Sub

answered Jan 21, 2021 at 6:50

macropod

14k2 gold badges11 silver badges25 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

find text and replace text excel word vba

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related