Как узнать названия цветов?
Я задаю в макросе Ворда поиск заданного текста в том числе и по цвету. В Ворде он называется "темно-синий", а в VB надо писать Dark Blue. Но в Ворде мне надо находить также и "темно-сизый" цвет. Как такой цвет будет называться в VB? И вообще, как узнать VB-эквиваленты названий цветов? Тех, которые отображаются, когда в Ворде мы открываем диалог свойств шрифта.
Спасибо.
Спасибо.
Покрасить в нужный цвет, а потом спросить:
MsgBox ActiveDocument.Words(1).Font.ColorIndex
MsgBox ActiveDocument.Words(1).Font.ColorIndex
Цитата: Cutty Sark
Покрасить в нужный цвет, а потом спросить:
MsgBox ActiveDocument.Words(1).Font.ColorIndex
MsgBox ActiveDocument.Words(1).Font.ColorIndex
Сейчас попробуим! :)
Итак. В результате проведенных изысканий получены след. данные.:cool:
Всего возможных цветов, задаваемых программно 16
[COLOR="Navy"]"WdColorIndex can be one of these WdColorIndex constants"[/COLOR] (16 штук)
При попытке назвать индекс цвета, не входящего в данный список выдается индекс последнего цвета на момент отладки. :(
Это весьма прискорбно. Выходит, что назначить цвет программно можно только из 16 вариантов.
Эврика! Есть свойство не [COLOR="Navy"]WdColorIndex[/COLOR], а [COLOR="Navy"]WdColor[/COLOR]. Там уже больше 50 вариантов. Будем рыть там...
Большое спасибо за подсказочку... [COLOR="Blue"](терпенье и хороший прут :p все проблемы перепрут!)[/COLOR]
Всего возможных цветов, задаваемых программно 16
[COLOR="Navy"]"WdColorIndex can be one of these WdColorIndex constants"[/COLOR] (16 штук)
При попытке назвать индекс цвета, не входящего в данный список выдается индекс последнего цвета на момент отладки. :(
Это весьма прискорбно. Выходит, что назначить цвет программно можно только из 16 вариантов.
Эврика! Есть свойство не [COLOR="Navy"]WdColorIndex[/COLOR], а [COLOR="Navy"]WdColor[/COLOR]. Там уже больше 50 вариантов. Будем рыть там...
Большое спасибо за подсказочку... [COLOR="Blue"](терпенье и хороший прут :p все проблемы перепрут!)[/COLOR]
Окончательная и бесповоротная Эврика!
Я задал цвет темно-сизый и получил его номер:
[COLOR="Navy"]MsgBox ActiveDocument.Words(1).Font.Color[/COLOR]
Ответ: [COLOR="DarkSlateBlue"]6697728[/COLOR]. А при др. цветах были и 8-значные числа.
Осталось понять алгоритм нумерации (ну это так, для развлечения). Но, видимо, можно номером назначить любой цвет, который доступен в диалоговом окошке "Быбрать др. цвет"!
Вот где копаться-то... :D
Я задал цвет темно-сизый и получил его номер:
[COLOR="Navy"]MsgBox ActiveDocument.Words(1).Font.Color[/COLOR]
Ответ: [COLOR="DarkSlateBlue"]6697728[/COLOR]. А при др. цветах были и 8-значные числа.
Осталось понять алгоритм нумерации (ну это так, для развлечения). Но, видимо, можно номером назначить любой цвет, который доступен в диалоговом окошке "Быбрать др. цвет"!
Вот где копаться-то... :D
Цитата: Dmitry2064
Окончательная и бесповоротная Эврика!
Я задал цвет темно-сизый и получил его номер:
[COLOR="Navy"]MsgBox ActiveDocument.Words(1).Font.Color[/COLOR]
Ответ: [COLOR="DarkSlateBlue"]6697728[/COLOR]. А при др. цветах были и 8-значные числа.
Осталось понять алгоритм нумерации (ну это так, для развлечения). Но, видимо, можно номером назначить любой цвет, который доступен в диалоговом окошке "Быбрать др. цвет"!
Вот где копаться-то... :D
Я задал цвет темно-сизый и получил его номер:
[COLOR="Navy"]MsgBox ActiveDocument.Words(1).Font.Color[/COLOR]
Ответ: [COLOR="DarkSlateBlue"]6697728[/COLOR]. А при др. цветах были и 8-значные числа.
Осталось понять алгоритм нумерации (ну это так, для развлечения). Но, видимо, можно номером назначить любой цвет, который доступен в диалоговом окошке "Быбрать др. цвет"!
Вот где копаться-то... :D
С этим-то как раз просто:
Цвет RGB. Каждая из трёх составляющих - красная, зелёная и синяя - это число от 0 до 255.
Формула общего цвета: Color = R + 256*G + 256*256*B
В тёмно-сизом 0 красного, 51 зелёного и 102 синего.
В VBA есть даже специальная функция: RGB(red, green, blue), которая считает вышеуказанную линейную комбинацию.
Я бы тебе сразу про это сказал, но думал, что хочешь именно НАЗВАНИЯ фиксироввнного набора вордовских цветов.