Public Sub Flatten() With ActiveDocument.Range .Style = wdStyleNormal .Font.Reset End With End Sub
Public Sub Flatten() With ActiveDocument.Range .ParagraphFormat.Reset .Font.Reset End With End Sub