ワードにおいて、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
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
s1とs2の行は、上下に付いて、左から対応していて、
s1--->S2に置換します。
配列の要素を増やせば、相当数までペアーを増やせます。
VBの行継続の仕方など、勉強は必要ですが。
お礼
すごい、ありがとうございます。自分でやるには少し難しそうですが、頑張ってみます。