Как в Word выделить жирным абзацы, начинающиеся с определенного слова?

Question

[MeAgain]

В документе MS Word необходимо выделить жирным все абзацы, начинающиеся со слова "Автор:"
Можно ли как-то сделать через макрос?

Comments

[h8nor]

Можно.

Answer 1

[Sergey В.]

Да, для этого нужен макрос. К слову, несложный. В Word, абзац - это объект. Перебираете через for each все абзацы и обрабатывает те, что соответствуют условию.

Comments

[MeAgain]

Не сильна в макросах, к сожалению.
Вот на просторах инета приводится такое решение для абзацев, начинающихся с определенного символа. Полагаю, как-то по аналогии, но надо как-то символ изменить на слово или фразу.

Sub ParaBold2()
Dim Symb As String
Dim Par As Paragraph

For Each Par In ActiveDocument.Paragraphs
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Symb = Selection.Text
If Symb = "В" Then
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Font.Bold = True
End If
Selection.MoveDown Unit:=wdParagraph, Count:=1

Next Par
End Sub