Microsoft Word OLE Visual Basic 6

[cj92713696]

I am trying to do something that seems very simple in nature, yet overpowering via code! =) Your help is very much appreciated!

1.) I need Visual Basic to open an existing Microsoft Word document. I have no problems with this part.
2.) I then need Visual Basic to go through the entire loaded document to replace text. If I have an occurence of <<customer>> I'd like to replace that with a customer name via Visual Basic code. As of the moment I'm using the words.item object, but it's really slow. I really need to find out how to use the replace command but have no clue. I am asking for any help you may offer... Thanks a lot!

 

[caf]

Hi

Try this code (I don't know execution times though)
Maybe you can compare it to your code's execution time

Option Explicit

Private x As Word.Application
Private doc As Word.Document
Private Sub Command1_Click()

   With doc.Content.Find
      .Execute  _
              FindText:=txtFind.Text, _
              ReplaceWith:=txtReplace.Text, _
              Format:=True, Replace:=wdReplaceAll
   End With

   doc.Save

End Sub
Private Sub Form_Load()

   Set x = CreateObject("Word.Application")
   Set doc = x.Documents.Open("d:\template.dot")

End Sub
Private Sub Form_Unload(Cancel As Integer)

   x.Quit
   Set x = Nothing

End Sub