Выделение несвязного текста цветом

diletant2

столкнулся с проблемой: если в тексте ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ выделить несвязанные области (выделено жирным) и через меню выбрать Цвет выделения текста =Текст будет выглядеть так, как если бы он был закрашен фломастером, то все выделенное закрасится: ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ (выделено красным, сорри, не знаю как здесь выделить цветом...), а вот если записать макрос (например, выделение желтым цветом):

Options.DefaultHighlightColorIndex = wdYellow
Selection.Range.HighlightColorIndex = wdYellow

и потом применить его к таким же образом выделенному тексту (несвязанное выделение), то получим закраску только последнего выделенного фрагмента, при этом другие фрагменты - останутся нетронутыми: ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ ФЫВАПРОЛДЖЭЯ (подчеркнуто)!
как же получить код, делающий закраску, как через меню?

Вождь

Когда выбрано несколько фрагментов, полезны встроенные команды MS Word, которые работают аналогично командам меню. В данном случае подойдет команда Highlight. Делаем так:

Код Visual Basic
1 2     Options.DefaultHighlightColorIndex = wdYellow     Application.Run "Highlight"

diletant2

спасибо, работает!
вдогонку, если можно, еще одна проблема: если выделить не связанные между собой фрагменты текста и закрасить фон таким кодом

Selection.Shading.BackgroundPatternColor = wdColorLightTurquoise

то попытка удалить сразу все такие раскраски с помощью кода

Selection.Shading.BackgroundPatternColor = wdColorAutomatic

ни к чему не приводит, если фрагменты принадлежат к разным абзацам (правда, если выделить мышкой только эти фрагменты текста с раскрашенным фоном без захвата знаков абзаца, то тогда получится), но это неудобно вручную выделять все эти фрагменты текста, особенно на больших текстах (например, после сканирования и распознавания, когда возможные ошибки подкрашиваются именно фоном), проще выделить все Ctrl+A и применить макрос, но какой?

Вождь

Надо различать заливку абзаца (Paragraph.Shading) и текста (Font.Shading). При Selection.Shading автоматически обрабатывается что-то одно. Поэтому лучше указывать конкретно, что закрашивать. В вашем случае надо очищать сразу все:

Код Visual Basic
1 2     Selection.Font.Shading.BackgroundPatternColor = wdColorAutomatic     Selection.Paragraphs.Shading.BackgroundPatternColor = wdColorAutomatic

diletant2

спасибо, все работает!
но вот еще проблема: если в документе залить фон цветом в области, включающей несколько абзацев, таблицу и еще несколько абзацев после нее, то заливка таблицы будет не сплошной, а с белыми полосками по краям каждой ячейки. если потом выделить только таблицу, скопировать ее в другой документ, снова выделить только таблицу - то удалить цвет фона даже через меню не получается, что делать?

конечно, если выделить не только таблицу, а захватить еще несколько абзацев выше или ниже ее, то цвет фона уберется, но как быть, если нужно сохранить цвет фона всего документа, а от цвета фона только таблицы избавиться?

Вождь

Как я уже писал, при изменении заливки кнопкой "Заливка", Ворд выбирает что-то одно (текст, абзац, таблица и др.), в зависимости от того, что выбрано. Но в окне "Границы и заливка" можно указать все детально, в т.ч. и объект с которым работаем. Окно "Границы и заливка" есть во всех версиях Ворд.

diletant2

увы, через "Границы и заливку" тоже не пашет для таблицы
и само действие желательно повесить на хоткей

Добавлено через 18 минут
P.S. кстати, при заливке через "Границы и заливка" - окрашивает/обесцвечивает только эти белые полоски по краям ячейки...

Вождь

В этом случае изменяется заливка абзацев, а не таблицы. Т.е. выбрав таблицу, надо очистить заливку абзацев.

diletant2

как это?
можете привести код?

Вождь

Можно в окне "Границы и заливка" указать применить к "абзацу", можно и кодом:

Код Visual Basic
1 Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorAutomatic