Microsoft Office Forums - View Single Post - Formatting specific paragraphs with styles without using Selection

RobiNew · 11-09-2023, 07:38 AM

Hi, Gmaxey! I tried this code of yours on its own and it produces an error: Object variable or With block variable not set. Please help. Thanks!

Code:

Sub Unnumbered()
Dim oPar As Paragraph
Dim oRng As Range
  For Each oPar In oRng.Paragraphs
    If oPar.Range.ComputeStatistics(wdStatisticLines) = 1 _
         And oPar.Range.ParagraphFormat.Alignment = wdAlignParagraphLeft _
         And Not oPar.Range Like "*[0-9]*" Then
      oPar.Range.Style = "Mystyle"
    End If
  Next oPar
End Sub

UPDATE: I managed to amend with:
For Each oPar In ActiveDocument.Paragraphs