Thread: [Solved] macro+word 2003 version support
View Single Post
 
Old 03-30-2012, 03:12 PM
nancy v nancy v is offline Windows XP Office 2003
Novice
  
Join Date: Mar 2012
Location: Brazil
Posts: 21
nancy v is on a distinguished road
Default
Dear Paul,

hope you are doing good,

here I have a query as in

Code:
'Replace the found text, asking first
    Do While .Find.Found
      .Duplicate.Select
      Rslt = MsgBox("Replace this instance of:" & vbCr & _
        Split(xlFList, "|")(i) & vbCr & "with:" & vbCr & _
        Split(xlRList, "|")(i), vbYesNoCancel)
      If Rslt = vbCancel Then Exit Sub
      If Rslt = vbYes Then .Text = Split(xlRList, "|")(i)
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
what is to be changed so that it just replace in one go ......not asking first etc...
as last night I was working on a doc fie and it had around 300+ same text which need to replaced, and I was ding one by one using macro.

Thanks,

Nancy

Reply With Quote