Тема: Выделение отдельных абзацев полужирным
Верстаю ТВ-программу. Подскажите, пожалуйста, как сделать так чтобы в ТВ-программе полужирным выделялись только абзацы, в которых есть текст «Т/с» или «Х/ф».
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Верстаю ТВ-программу. Подскажите, пожалуйста, как сделать так чтобы в ТВ-программе полужирным выделялись только абзацы, в которых есть текст «Т/с» или «Х/ф».
Попробуйте так
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
Спасибо большое, все заработало
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться