Microsoft Office Forums - View Single Post

RobiNew · 12-04-2023, 08:59 AM

Thank you, Gmaxey! I will certainly study that article. But for the time being here's another difficulty:

Code:

Dim aRng As Range
    For Each Paragraph In ActiveDocument.Paragraphs
NrPara = NoPara + 1
Set aRng = ActiveDocument.Paragraphs(NrPara).Range
If Paragraph.Range.ParagraphFormat.Alignment = wdAlignParagraphRight _
Or Paragraph.Range.ParagraphFormat.LeftIndent > 30 Then
aRng.Format.Font.Italic = False
End If
    Next Paragraph
    NrPara = 0
    Set aRng = Nothing