質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

Q&A

解決済

1回答

2320閲覧

VBSでWordファイルの文字列を置換する

nekoyama771

総合スコア29

VBScript

VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

0グッド

0クリップ

投稿2023/01/30 13:10

編集2023/01/30 13:10

VBSでWordファイルの文字列の置換をします。
プログラムを実行すると

行: 36
文字: 5
エラー: オブジェクトでサポートされていないプロパティまたはメソッドです。: 'doc.Selection'
コード: 800A01B6
ソース: Microsoft VBScript 実行時エラー

とエラーメッセージが出ます。
また、エラーの出る36行目から関係する40行目をコメントアウトにして
実行すると特にエラーが出ないので、正常に終了しているのだと思いますが、
プロセスにワードが残ったままになります。
27行目の処理ではプロセスの終了はできないでしょうか。
宜しくお願い致します。

VBS

1Dim FindWord 2Dim ReplaceWord 3Const wdReplaceAll = 2 4 5' docxファイルの文字列を置換処理するプログラム 6FindWord = InputBox("置換対象文字は?", "置換対象文字指定", "") 7If FindWord ="" Then WScript.Quit 8ReplaceWord = InputBox("置換後文字は?", "置換後文字指定", "") 9 10'Wordオブジェクト作成 11Dim wordApp 12Set wordApp = WScript.CreateObject("Word.Application") 13wordApp.Visible = False 14 15' ファイル操作用のオブジェクトを得る 16Dim FSO 17Set FSO = CreateObject("Scripting.FileSystemObject") 18Dim ThisVbsPath 19ThisVbsFolderPath = FSO.GetParentFolderName(WScript.ScriptFullName) 20' ファイルの一覧を得る 21For Each f In FSO.GetFolder(ThisVbsFolderPath).Files 22 ' docx ファイルだけ処理する 23 If LCase(FSO.GetExtensionName(f.Name)) = "docx" And Left(FSO.GetFileName(f),2) <> "~$" Then 24 ReplaceDoc f.Path 25 End If 26Next 27Set wordApp = nothing 28 29 30' 各docx ファイルを処理するサブルーチン 31Sub ReplaceDoc(fname) 32 Dim doc 33 ' Wordファイルを開いて処理 34 Set doc = wordApp.Documents.Open(fname) 35 ' Wordのテキストを一括置換する 36 With doc.Selection 37 .Find.Text = FindWord 38 .Find.Replacement.Text = ReplaceWord 39 .Find.Execute 'Replace:=wdReplaceAll 40 End With 41 ' ファイルを保存して閉じる 42 doc.Save 43 doc.Close 44End Sub

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

少し修正してみました。こちらでどうでしょうか?

Basic

1Option Explicit 2 3Dim FindWord 4Dim ReplaceWord 5Const wdReplaceAll = 2 6 7' docxファイルの文字列を置換処理するプログラム 8FindWord = InputBox("置換対象文字は?", "置換対象文字指定", "") 9If FindWord ="" Then WScript.Quit 10ReplaceWord = InputBox("置換後文字は?", "置換後文字指定", "") 11 12'Wordオブジェクト作成 13Dim wordApp 14Set wordApp = WScript.CreateObject("Word.Application") 15wordApp.Visible = False 16 17' ファイル操作用のオブジェクトを得る 18Dim FSO 19Set FSO = CreateObject("Scripting.FileSystemObject") 20Dim ThisVbsFolderPath 21ThisVbsFolderPath = FSO.GetParentFolderName(WScript.ScriptFullName) 22' ファイルの一覧を得る 23Dim f 24For Each f In FSO.GetFolder(ThisVbsFolderPath).Files 25 ' docx ファイルだけ処理する 26 If LCase(FSO.GetExtensionName(f.Name)) = "docx" And Left(FSO.GetFileName(f),2) <> "~$" Then 27 ReplaceDoc f.Path 28 End If 29Next 30wordApp.Quit 31 32' 各docx ファイルを処理するサブルーチン 33Sub ReplaceDoc(fname) 34 Dim doc 35 ' Wordファイルを開いて処理 36 Set doc = wordApp.Documents.Open(fname) 37 ' Wordのテキストを一括置換する 38 With wordApp.Selection 39 .Find.Text = FindWord 40 .Find.Replacement.Text = ReplaceWord 41 .Find.Execute,,,,,,,,,,wdReplaceAll 42 End With 43 ' ファイルを保存して閉じる 44 doc.Save 45 doc.Close 46End Sub

■ Option Explicit について
追加)Option Explicit
→ これを追加すると変数の宣言忘れを防止することができます。VBScript や VBA でコーディングする場合は先頭に入れておくことをお勧めします。

■ Selection プロパティについて
変更前)doc.Selection
変更後)wordApp.Selection
Selection は doc のプロパティではありません。
wordAapp.Selection もしくは doc.ActiveWindow.Selection とすることでエラー回避できるかと思います。

■ プロセスを強制終了させる方法について

27行目の処理ではプロセスの終了はできないでしょうか。

プロセスが残りっぱなしなるようなケースは、Quit メソッドを試してください。

変更前)Set wordApp = nothing
変更後)wordApp.Quit

投稿2023/01/30 16:13

cx20

総合スコア4633

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekoyama771

2023/01/31 11:09 編集

■ Selection プロパティについて ■ プロセスを強制終了させる方法について ご提示ありがとうございます。動作しました。 ■ Option Explicit について .Find.Execute,,,,,,,,,,wdReplaceAll もありがとうございました。 「.Find.Execute,,,,,,,,,,wdReplaceAll」を見て再度調べ、 https://learn.microsoft.com/ja-jp/office/vba/api/word.find.execute のページの見方が分かりました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問