wordのVBA（自動的に保存し、閉じる）

以前、どこかへいってしまったので今回改めて作り直した。

備忘録として貼っておく。

Sub 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.CloseEnd Sub