Vista Tutorial - New to VBscript, Help please!

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

That code is VBA, not VBScript. VBScript does not support named arguments
(e.g. FileName :=)
You will also need to define the constants such as wdReplaceAll.

--

Joe Fawcett (MVP - XML)
http://joe.fawcett.name
"yu" <zhangyu05@xxxxxx> wrote in message
news:788627e9-c322-48f6-b216-b6bcf813dd7b@xxxxxx

Removing the ability to supply named arguments often means you need to put
in all the parameters, this worked for me:

Public Const wdReplaceAll = 2
Public Const wdFindContinue = 1
Set ObjWord = createobject("Word.Application")
Set ObjWdDoc = ObjWord.Documents.Open("C:\test.doc")
ObjWord.Visible = True
Dim rng
Set rng = ObjWdDoc.Content
With rng.Find
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.Execute "Randomized ID:", False, False, False, False, False, True,
wdFindContinue, True, "Randomized ID:", wdReplaceAll
End With

--

Joe Fawcett (MVP - XML)
http://joe.fawcett.name


"Joe Fawcett" <joefawcett@xxxxxx> wrote in message
news:#xK$Vey7JHA.1416@xxxxxx

On Jun 17, 4:32*am, "Joe Fawcett" <joefawc...@xxxxxx> wrote:Joe,

thank you so much.I will try the code later.

Yu