IF loop: object variable or with block variable not set

[gmayor]

There is no bRng declared (or used) in your code and the particular error relates to

oPar.Next.Range.Text

for when processing the last paragraph in the document, there is no next paragraph to process. Glancing at the code I am not convinced that it does work 'properly' especially with regard to

  With bPar.Find
    With .Font
    .Size = 8
    .Underline = wdUnderlineSingle
    End With

as that find is not executed and therefore the code acts on the whole of the document range,