ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установить определенный цвет выделения текста.
6 сообщений из 6, страница 1 из 1
Установить определенный цвет выделения текста.
    #38414345
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Подскажите пожалуйста, что в этом коде, отвечает за выделение цветом которым будет выделяться слово? И как сделать так, что бы, цвет задавался в коде и запуск данного макроса всегда выделял слово зеленым?

Спасибо.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
[CSV][CSV]Sub selectWord()
'Подсвечивание зеленым цветом найденное слово
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With rTmp.Find
.Text = Selection.Text
.Replacement.Text = ""
.Replacement.Highlight = True
.Execute Replace:=wdReplaceAll
End With
End Sub[/CSV][/CSV]
...
Рейтинг: 0 / 0
02.10.2013, 14:51
| Ответить | Цитировать | Написать  
Установить определенный цвет выделения текста.
    #38414359
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
lopuxiПодскажите пожалуйста, что в этом коде, отвечает за выделение цветом которым будет выделяться слово?
Код: vbnet
1.
.Replacement.Highlight = True



Написано же... Highlight дословный перевод -"выделение"
Вас в гугле забанили?
...
Рейтинг: 0 / 0
02.10.2013, 14:58
| Ответить | Цитировать | Написать  
Установить определенный цвет выделения текста.
    #38414397
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Прогер_самоучка, и тебе привет.

Как в данной строчке указать точный цвет, которым он будет закрашивать?
В данный момент я могу выбрать на панели ворда любой цвет. И этим цветом будет закрашиваться слово. Конечно и так можно, но возможно можно взять и указать единый цвет.
Спасибо. Гугл мне с моей проблемой не помог. Я там был, с человеком общаться проще.
...
Рейтинг: 0 / 0
02.10.2013, 15:13
| Ответить | Цитировать | Написать  
Установить определенный цвет выделения текста.
    #38414401
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lopuxiИ как сделать так, что бы, цвет задавался в коде
Код: vbnet
1.
Options.DefaultHighlightColorIndex = wdBrightGreen

запись макроса тебе в помощь
...
Рейтинг: 0 / 0
02.10.2013, 15:16
| Ответить | Цитировать | Написать  
Установить определенный цвет выделения текста.
    #38414452
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
lopuxiПрогер_самоучка, и тебе привет.
Приветствую)
lopuxiКак в данной строчке указать точный цвет, которым он будет закрашивать?
В данный момент я могу выбрать на панели ворда любой цвет. И этим цветом будет закрашиваться слово. Конечно и так можно, но возможно можно взять и указать единый цвет.
Спасибо. Гугл мне с моей проблемой не помог. Я там был, с человеком общаться проще.
Если не ошибаюсь, то так:
Код: vbnet
1.
Selection.Find.Replacement.Font.Color = wdColorGreen


в вашем тексте будет выглядеть так:
Код: vbnet
1.
.Font.Color = wdColorGreen
...
Рейтинг: 0 / 0
02.10.2013, 15:40
| Ответить | Цитировать | Написать  
Установить определенный цвет выделения текста.
    #38414503
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Прогер_самоучкаЕсли не ошибаюсьошибаешься. Цвет шрифта и цвет подсветки - это не одно и то же.
...
Рейтинг: 0 / 0
02.10.2013, 15:58
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Установить определенный цвет выделения текста.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]