word autoopen置換マクロ

以前間違って消してしまったので、備忘録としてこちらに貼っておく。
マクロの名前をautoopen()にすると
ファイルを開いたときに自動的に置換し、保存して閉じてくれるマクロ。
' Macro1 Macro
' 記録日 2008/10/23 記録者 27001122
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "ホチキス止め"
.Replacement.Text = "ホチキス留め"
.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
ActiveDocument.Save
ActiveDocument.Close