ワードで複数の文字を一括・連続置換するマクロ

過去質問に回答が出ている者です。 ファイルのもっとも原始的なものはテキストファイルです。 この際はCSVファイルを使います。 ワードの文章に 名称 関東大会 開催地 東京都 時刻 １時 参加 小学生 とあるとして メモ帳に 関東,東北 東京都,宮城県 小学,中学 １時,２時半 のようなのを（実際例では１００行ばかり）作り、名前をつけて保存します。 各行の、各ペアーはカンマの左を、右の語句で置き換えるつもりです。 この場合は「置換2.csv」にしてます。 VBEの標準モジュールに Sub test06() Open "置換2.csv" For Input As #1 While Not EOF(1) Line Input #1, a s = Split(a, ",") MsgBox s(0) & " " & s(1) Selection.Find.ClearFormatting Sele

[yuji4959]

VBA