Quote:
Originally Posted by gmaxey
Paul, here both of those returned the same result the OP is seeing.
|
In my testing, both restored the Normal formatting for the entire document.
If I misread the OP's requirement and the italics are to be retained, that's as simple as:
Code:
Public Sub Flatten()
ActiveDocument.Range.Style = wdStyleNormal
End Sub
or:
Code:
Public Sub Flatten()
ActiveDocument.Range.ParagraphFormat.Reset
End Sub