yu

Dear All,

It is my first time to write a Vb script to automate Word document
processing. What I am trying to accompish is to find a specific
keyword, then Bold it. the keyword will be appearing many times in the
WORD document. here is what I have tried. the script is runing with
error. but no change was made to document.
can someone kindly point out what is wrong?

Thank you!

Yu

------------------------test.vbs--------------------------------

Set ObjWord = createobject("Word.Application")
Set ObjWdDoc = ObjWord.Documents.Open(FileName:="c:\test.doc")
ObjWord.Visible = True
Set ObjWdRange = ObjWdDoc.Content
With ObjWdRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Randomized ID:"
.MatchCase = True
With .Replacement.Font
.Bold = True
End With
.Execute wdReplaceAll
End With