Добрый день!
Могу я попросить Вас написать макрос?
Если есть запрет переносов в абзаце, то его закрасить светло-серым, к примеру.
Уж очень удобно и наглядно будет.
Запрет переносов как делается в ворде без макросов? Куда надо щёлкать?
Главная - абзац - положение на странице - запретить автоматический перенос слов
Макрос
Sub Макрос()
Dim par As Paragraph
'1. Отключение монитора (может это ускорит макрос и не будет мерцать).
Application.ScreenUpdating = False
'2. Цикл по всем абзацам в основной части файла.
For Each par In ActiveDocument.Paragraphs
If par.Hyphenation = False Then
par.Range.Shading.BackgroundPatternColor = -603923969
End If
Next par
'3. Включение монитора.
Application.ScreenUpdating = True
'4. Сообщение.
MsgBox "Готово.", vbInformation
End Sub
Спасибо!
Если макрос будет долго работать, то можно попробовать использовать "Find".
На большом тексте (~300 с.) работает у меня несколько секунд. Я думаю, это хороший результат, спасибо.