複数のWORDを一括置換
複数のWord文書に対して文字列置換 こちらのサイトのマクロを使ってみた WORDにマクロとして登録したら動いた Sub 複数文書連続処理_文字列置換() '置換文字列の指定 mae = InputBox("置換前の文字列を入力してください。", "置換前") If mae = "" Then Exit Sub ato = InputBox("置換後の文字列を入力してください。", "置換後") If ato = "" Then Exit Sub 'フォルダの選択 With Application.FileDialog(msoFileDialogFolderPicker) .Title = "フォルダを選択" .AllowMultiSelect = False If .Show = -1 Then mypath = .SelectedItems(1) & "\" Else MsgBox "終了します。" Exit Sub End If End With '実行 res = MsgBox(mypath & "のフォルダ内のWord文書について「" & mae & "」を「" & ato & "」に置換します。よろしいですか。", vbOKCancel) If res = vbCancel Then Exit Sub myfile = Dir(mypath & "*.doc*") Do While myfile "" Documents.Open FileName:=mypath & myfile Call 文書全体を...