Word VBA - жирный абзац, если первый символ является числовым

Пытаясь заставить этот макрос пройти через все абзацы и проверить, начинаются ли они с цифры, если да, я бы хотел, чтобы весь этот абзац был выделен жирным шрифтом. Однако ничего не происходит, даже сообщения об ошибке.

Sub titles()

    For Each Paragraph In ActiveDocument.Paragraphs
        If IsNumeric(Paragraph.Range.Words(1).Characters(1)) = True Then
            wcount = Paragraph.Range.Words.Count
            Paragraph.Range.Words(wcount).Font.Bold = True
            'MsgBox (wcount)
        End If
    Next Paragraph

End Sub