Quote:
Originally Posted by Guessed
Code:
Sub WipeLocalFormats()
Dim aPara As Paragraph
For Each aPara In ActiveDocument.Paragraphs
With aPara.Range.Font
If .Bold = wdUndefined Or .Italic = wdUndefined Then .Reset
End With
Next aPara
End Sub
|
Thanks Andrew so much
It works perfectly
You will save me time on work with future lectures
I can't thank you enough
Billion Thanks