Word Макрос: В выделенном фрагменте первое слово поместить в скобки

[BoomZoom]

Здравствуйте!
Подскажите пожалуйста, как в выбранном фрагменте первые слова абзацев, содержащих в конце точку, поместить в квадратные скобки.

[Администратор]

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

Sub Макрос1()
    Selection.Paragraphs(1).Range.InsertBefore Text:="["
    Selection.InsertAfter Text:="]"
End Sub