Sub Reset() Selection.WholeStory Selection.Font.Reset Selection.ParagraphFormat.Reset Selection.Style = ActiveDocument.Styles("Normal") End Sub