.
Sub AutoClose() Selection.WholeStory Selection.Font.NameFarEast = "DFKai-SB" Selection.Font.NameAscii = "Times New Roman" Selection.HomeKey Unit:=wdStory Do Selection.Find.ClearFormatting Selection.Find.Execute findtext:="^#" If Selection.Find.Found = True Then Selection.Font.Name = "Times New Roman" Loop Until Selection.Find.Found = False End Sub