View Single Post
 
Old 03-25-2024, 04:36 AM
Jakov93 Jakov93 is offline Windows 10 Office 2010
Advanced Beginner
 
Join Date: Jul 2021
Posts: 45
Jakov93 is on a distinguished road
Default

Quote:
Originally Posted by Guessed View Post
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
Reply With Quote