みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBSでWordの文字色変え

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

投稿日時 - 2003-08-07 13:18:44

QNo.621932

すぐに回答ほしいです

質問者が選んだベストアンサー

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

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

投稿日時 - 2003-08-07 13:36:57

お礼

どうもありがとでやんす

投稿日時 - 2003-11-14 21:09:12

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問