Поместить в скобки первое слово в абзаце, если оно заканчивается точкой

[Kley]

Sub BoldIt(Optional strS As String = ".")
Dim par As Paragraph, strT As String, i As Long

For Each par In ActiveDocument.Paragraphs

strT = par.Range.text
i = InStr(strT, strS)
If i > 1 Then
i = i - 2

par.Range.Characters(1).Select
Selection.MoveRight wdCharacter, i + 1, wdExtend
'Selection.Font.Bold = True
Selection.Paragraphs(1).Range.Inser tBefore text:="["
Selection.InsertAfter text:="]"
Selection.Collapse wdCollapseEnd


End If

Next

End Sub

Sub RunMe()
BoldIt "."
End Sub

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

[Step_UA]

If i > 1 Then
 ' использовать одну из 2-х следующих строк - ненужную удалить/закомментировать
 if left(strT,1)<>" " then ' первый символ параграфа не пробел
 if instrrev(strT," ",i-1)=0 then ' пробел до позиции i не найден

 par.Range.Characters(1).Select
 Selection.MoveRight wdCharacter, i - 1, wdExtend
 'Selection.Font.Bold = True
 Selection.Paragraphs(1).Range.Inser tBefore text:="["
 Selection.InsertAfter text:="]"
 Selection.Collapse wdCollapseEnd

 end if
 End If

[Kley]

Step_UA
Большое спасибо! Не знаю, насколько верен код и где могут встретится подводные камни, но мою задачу он решил