1

Тема: Выделение отдельных абзацев полужирным

Верстаю ТВ-программу. Подскажите, пожалуйста, как сделать так чтобы в ТВ-программе полужирным выделялись только абзацы, в которых есть текст «Т/с» или «Х/ф».

2

Re: Выделение отдельных абзацев полужирным

Попробуйте так

Sub tt()
    Dim Par As Paragraph
    For Each Par In ActiveDocument.Paragraphs
        If InStr(Par.Range.Text, "Х/ф") <> 0 Or InStr(Par.Range.Text, "Т/с") <> 0 Then Par.Range.Font.Bold = True
    Next
End Sub

3

Re: Выделение отдельных абзацев полужирным

Спасибо большое, все заработало smile