VBSでWoｒｄの文字色変え

VBSなのですが
Wordファイルをドラッグしたら
<と>で囲まれた文字の色を変更して保存する
というものを考えております
が
<=============
部分でコンパイルエラー（ステーメントがありません）
が発生します
初心者でさっぱりわからないのですが
どなたかお助けを！
よろしくお願いいたします

以下ソース

Dim objWord
Dim f
Dim m

If WScript.Arguments.Count<1 Then
m="Hello!"
MsgBox m
WScript.Quit
End If

Set objWord=CreateObject("Word.Application")

objWord.Visible=True

For Each f In WScript.Arguments
objWord.Documents.Open f

objWord.Selection.Find.ClearFormatting
objWord.Selection.Find.Replacement.ClearFormatting
objWord.Selection.Find.Replacement.Font.Color = wdColorRed
With objWord.Selection.Find
.Text = "\<[!\>]@\>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
End With
objWord.Selection.Find.Execute Replace:=wdReplaceAll '<=======================
objWord.ActiveDocument.SaveAs f&".doc"
objWord.ActiveDocument.Close
Next
objWord.Quit
WScript.Quit

No.1 ベストアンサー 回答者： todo36 回答日時： 2003/08/07 13:36

VBSは経験ないけど、勘で..

Replace:=wdReplaceAll → この記述方法はVBSでは許されない
f&".doc" → &の前後にスペースを入れる

この回答へのお礼

どうもありがとでやんす

お礼日時：2003/11/14 21:09