Sub Format_Paras_If()
'In active doc's paras that have a tab/colon, bold the strings
'from paras start until the 1st tab/colon excluding list paras.
'Coded by vivka, 12.06.2024

Dim oRng As range
    Application.ScreenUpdating = False
    Set oRng = ActiveDocument.range
    With oRng.Find
        .ClearFormatting
        .Forward = True
        .Wrap = wdFindStop
        .Format = True
        .MatchWildcards = True
        .Replacement.ClearFormatting
        .text = "[^t:]"
        Do While .Execute And oRng.ListFormat.ListType = 0
            oRng.End = oRng.start
            oRng.start = oRng.Paragraphs(1).range.start
            oRng.Font.Bold = True
            oRng.start = oRng.Paragraphs(1).range.End
        Loop
    End With
Application.ScreenUpdating = True
Set oRng = Nothing
End Sub