G
Guest
This does work with Word 2000, 2002, 2003 but not with Word 97, any idea
Public Function testMYWord(
Dim wApp As New Word.Applicatio
Dim objWord As Word.DocumentClas
objWord
wApp.Documents.Open("c:\MyDocuments\Ontvangstmelding.doc"
wApp.ActiveDocument.Content.Find.Execute("customername", False
False, False, True, False, False, False, True ,"REPLACED", True
wApp.Visible = Tru
End Functio
Public Function testMYWord(
Dim wApp As New Word.Applicatio
Dim objWord As Word.DocumentClas
objWord
wApp.Documents.Open("c:\MyDocuments\Ontvangstmelding.doc"
wApp.ActiveDocument.Content.Find.Execute("customername", False
False, False, True, False, False, False, True ,"REPLACED", True
wApp.Visible = Tru
End Functio