Microsoft Office Forums - View Single Post - [Solved] Format Paragraphs Only if It Contains Mixed Text Formatting VBA

Guessed · 03-24-2024, 09:46 PM

In that case you need to examine every paragraph with a loop

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

This assumes the underlying paragraph style on the 'mixed' paragraphs is non-bold and non-italic.