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

[quote=myreg]Как выделить в тексте все абзацы начинающиеся с определенного символа ?
Есть такой макрос ?[/quote]

Можно предложить такой макрос:

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

    For Each Par In ActiveDocument.Paragraphs
        Selection.MoveDown Unit:=wdParagraph, Count:=1
        
        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
     Next Par
End Sub

В строку:

If Symb = "В" Then

вместо символа В подставьте тот символ, который Вам нужен.

Так будет покорректнее:

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

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

А первый вариант работает?

Ошибка "Expected End Sub", как мне кажется, говорит о том, что отсутствует оператор:

End Sub

парный для оператора:

Sub... 

Скорее всего, Вы его не скопировали, скопировали не туда или ранее у Вас не хватало этого оператора.
Проверьте, пожалуйста, в рабочем модуле макросов следующие пары операторов:

Sub...
...
End Sub

За каждым оператором:

Sub... 

должен следовать свой оператор:

End Sub

На скрине видно, что два раза подряд идет оператор

Sub...

Один из них нужно удалить.

If Symb = "В" Then

Насколько я помню, сюда (вместо В) надо ввести символ, который Вам нужен.
Если возникнут проблемы, выложите, пожалуйста, часть Вашего файла и укажите символ, по которому нужно выделять абзацы.

Да, выделяют жирным шрифтом.
Можно сделать с этими абзацами и что-то другое.
Что именно Вы хотели бы сделать с выделенным текстом?

К сожалению, не нашел способ объединения нескольких диапазонов в Ворде.
Поэтому, если больше никто ничего не предложит, советую вставить Ваш второй макрос в указанный выше.

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