Форум по VBA и MS Office

Доброго времени!
Подскажите пожалуйста решение. Мне нужно все абзацы, начинающиеся  с английского текста, взять в квадратные скобки.

Sub Макрос1()

    Dim par As Paragraph
   
    For Each par In ActiveDocument.Paragraphs
        If par.Range.Characters(1).Text Like "[A-Za-z]" Then
            par.Range.InsertBefore Text:="["
            par.Range.Characters.Last.InsertBefore Text:="]"
        End If
    Next par
   
    MsgBox "Готово.", vbInformation
   
End Sub

Все работает! Спасибо!