Слово заключить в абзац - VBA/Word

Формулировка задачи:

Задание: Первое слово каждого абзаца в активном документе заключить в рамку. Я сделал событие на выделение всего активного документа и абзацев, но не могу понять как работает выделение слов, то есть как нужно написать код, чтобы каждое первое слово выделилось и к нему добавлялся какой-то стиль. Собственно мой код:

Sub lab()
 
Dim Абзац As Word.Paragraph
For Each Абзац In ActiveDocument.Paragraphs
    With Абзац .Range.Words(1)
    End With
Next Абзац 
 
End Sub

Пробовал другие методы по типу start, но так и не могу понять, как должен выглядеть код.

Решение задачи: «Слово заключить в абзац»

textual
                            Листинг программы 
                        

                            Sub lab()
 
Dim Абзац As Word.Paragraph
For Each Абзац In ActiveDocument.Paragraphs
    Абзац.Range.Words(1).Borders.Enable = True
Next Абзац
 
End Sub
                        