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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) VBAでファイルを開くプログラムがエラーです 2 2023/02/21 16:56
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- JavaScript スマフォではボタンを表示させたくない 2 2023/01/20 14:26
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでほかのアプリケーシ...
-
vbaでIEの名前を付けて保存(A)...
-
ExcelVBAでデスクトップのPATH...
-
コマンドプロンプトでデスクト...
-
タイトルバーやメニューバーの...
-
VBScriptで日本語が変です
-
バッチファイルの作成について...
-
エクセルマクロ PDF出力、CSV出力
-
Pivot table で集計されたデー...
-
onedriveで同期解除をしたら、...
-
USBデータの消失
-
沢山のフォルダにあるファイル...
-
移動先にないファイルのみをコ...
-
スマホのブックマークはどこに...
-
Safariのブックマークの消し方
-
マイドキュメントのフォルダの...
-
WindowsからSSHでサーバーにあ...
-
OneDriveアンインストール方法
-
外付けHDDのデータが空になった...
-
Windowsファイルエクスプローラ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAについて
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
Excel VBAで作成したマクロをxl...
-
VBAで、強制保存してブックを閉...
-
コマンドプロンプトでデスクト...
-
ExcelVBAでデスクトップのPATH...
-
VBScriptで日本語が変です
-
vbaでIEの名前を付けて保存(A)...
-
Corel Digital Studioの動画をS...
-
エクセルで「名前を付けて保存...
-
タイトルバーやメニューバーの...
-
CImageのファイル名を指定して保存
-
webページの特定の部分だけ消し...
-
Pivot table で集計されたデー...
-
VBA メモ帳の上書き保存がしたい
-
VB.NETでEXCELファイルを開き、...
-
EclipseでJavaScriptファイルの...
-
VBScriptでのSaveAsについて
-
エクセル:マクロ:保存時に連...
おすすめ情報