ワードにおいて、1語の置換で、全て置換を選択する、マクロの記録を取り、複数語の配列を作って、置換操作の繰り返しを行うための、コードの改変を行うと出来そうです。 人手の操作をプログラムの繰り返しに置換えただけのものです。 Sub Macro17() s1 = Array("京都", "本町", "2-") s2 = Array("大阪", "伏見町", "3-") For i = 0 To UBound(s1) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = s1(i) .Replacement.Text = s2(i) .Forward = True .Wrap = wdFindContinue .Format = False .Mat