スクリプトで複数のワードファイルに対して処理を行う

Script Word 
'#1 フォルダ全部のファイルでやる場合

Const wdReplaceAll = 2
'start
strDir = InputBox("ディレクトリ名を入力してください。")			'#1
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject") '#1
Set objFolder = objFSO.GetFolder(strDir)						'#1

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

For Each objFile In objFolder.Files								'#1
	If Lcase(Right(objFile.Name, 4)) = ".doc" Then				'#1
		strArg = objFile.Path									'#1

	'使用するオブジェクト用意
	Set objDoc = objWord.Documents.Open(strArg)
	Set objSelection = objWord.Selection
	Set objRange = objDoc.Range()

	'ここに処理を記述


	'終了処理
	objDoc.Save
	objWord.Documents.Close
	Set objDoc = Nothing
	Set objSelection = Nothing

	End if	'#1
Next
objWord.Quit

この方法は以下の答えのままです。ありがとうございます。
wordの置換について質問です。 使用ソフトはword2007です。 フォ… - 人力検索はてな