On Jun 17, 4:32*am, "Joe Fawcett" <joefawc...@xxxxxx> wrote:
Quote:
> 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" <joefawc...@xxxxxx> wrote in message
>
> news:#xK$Vey7JHA.1416@xxxxxx
> Quote:
> > 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.
>> Quote:
> > Joe Fawcett (MVP - XML)
> >http://joe.fawcett.name
> > "yu" <zhangy...@xxxxxx> wrote in message
> >news:788627e9-c322-48f6-b216-b6bcf813dd7b@xxxxxx > Quote:
Quote:
> >> 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?
>>> Quote:
Quote:
> >> ------------------------test.vbs--------------------------------
> Quote:
Quote:
> >> 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
Joe,
thank you so much.I will try the code later.
Yu