MicrosoftWordのページ指定置換マクロ

質問

お世話になります。
MicrosoftWordの文章の中の『SYSTEMS』と単語を
XXXXXXXに置換するマクロを作ってみましたが
これですとWordの文章ファイルの
全てページの『SYSTEMS』とゆう単語を置換してしまいます。

Wordの文章ファイルの1ページ目だけの全ての『SYSTEMS』
とゆう単語を置換するマクロはどのようにすればよいでしょうか？

Sub Macro2()
'
' Macro2 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "SYSTEMS"
.Replacement.Text = "XXXXXXX"
.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
End Sub

回答No.1

s-uzen · ベストアンサー

以下の情報が参考になると思います。

Wordマクロで選択範囲内だけ置換するときの注意
http://stabucky.com/wp/archives/1896

【コード】指定したページ内で置換をするWordマクロ
http://www.wordvbalab.com/code/3729/

お礼

s-uzenさん
ありがとうございました。
助かります。