|
Как задать красный цвет? | ☑ | ||
---|---|---|---|---|
0
ДайтеДайте Сказать
10.12.12
✎
15:46
|
Wd.Selection.Font.Size = 20;
Wd.Selection.Font.Color = ???????? - что тут надо написать чтобы был красный? |
|||
1
ДайтеДайте Сказать
10.12.12
✎
15:46
|
из одинеса?
|
|||
2
ДенисЧ
10.12.12
✎
15:46
|
= Новый Цвет(255, 0, 0);
|
|||
3
Undefined vs NULL
10.12.12
✎
15:47
|
Wd это что?
|
|||
4
Reset
10.12.12
✎
15:47
|
Wd - Witch Doctor?
|
|||
5
Aleksey
10.12.12
✎
15:47
|
Что такое Wd и зачем там красный?
|
|||
6
ДенисЧ
10.12.12
✎
15:47
|
(4) Whore Doctor :-)
|
|||
7
Aleksey
10.12.12
✎
15:47
|
Western Digital
|
|||
8
ДайтеДайте Сказать
10.12.12
✎
15:48
|
{ОбщийМодуль.ОбщиеПроцедурыКлиент.Модуль(148)}: Ошибка при установке значения атрибута контекста (Color)
Wd.Selection.Font.Color = Новый Цвет(255, 0, 0); по причине: Неизвестная ошибка |
|||
9
ДайтеДайте Сказать
10.12.12
✎
15:48
|
WD = Новый COMOBject("Word.Application");
Попытка WordDoc = WD.Documents.Open(ПолноеИмяФайла,,0); Исключение Возврат Неопределено; КонецПопытки; WordDoc = WD.ActiveDocument; wdWord = 2; wdExtend = 1; wdWindowStateMaximize = 1; WD.ActiveWindow.View.ShowFieldCodes = 0; |
|||
10
Aleksey
10.12.12
✎
15:48
|
(8) и чё?
|
|||
11
Defender aka LINN
10.12.12
✎
15:49
|
WebЦвета.Красный, не?
|
|||
12
Reset
10.12.12
✎
15:49
|
Wd.Selection.Font.Color = 16711680
|
|||
13
Aleksey
10.12.12
✎
15:49
|
(9) А причем тут 1С, если ты в верде работаешь?
см (11) |
|||
14
luns
10.12.12
✎
15:49
|
Word.WdColor.wdColorRed
|
|||
15
ДайтеДайте Сказать
10.12.12
✎
15:49
|
(10) в (9) написал
|
|||
16
Defender aka LINN
10.12.12
✎
15:49
|
(11) Отменяется.
(9) Вопрос с намеком - а не должен ли цвет быть цветом Word, а не 1С? |
|||
17
Wobland
10.12.12
✎
15:50
|
(0) макрос надо написать. и посмотреть, что такое красный цвет с точки зрения ворда
|
|||
18
Reset
10.12.12
✎
15:50
|
(12) Это если там 3х байтовый RGB (я не в курсе)
|
|||
19
ParinovS
10.12.12
✎
15:51
|
попробуй 3
|
|||
20
samozvanec
10.12.12
✎
15:51
|
(0) алгоритм делания чего-либо из 1с в ексель - берешь ексель! пишешь макрос! открываешь! читаешь! кодишь!
|
|||
21
Wobland
10.12.12
✎
15:51
|
(16) ну сказал же автор, что цвет должен быть красным, а никаким не вордом
|
|||
22
samozvanec
10.12.12
✎
15:52
|
(21) сдается мне, автор хочет нарисовать красную линию зеленым вордом
|
|||
23
Wobland
10.12.12
✎
15:52
|
(22) семь. причём перпендикулярных
|
|||
24
Reset
10.12.12
✎
15:53
|
(22) Семь перпендикулярных красных линий, из них 2 зеленых и 1 прозрачную (с)
|
|||
25
ДайтеДайте Сказать
10.12.12
✎
15:53
|
WD = Новый COMOBject("Word.Application");
Попытка WordDoc = WD.Documents.Open(ПолноеИмяФайла,,0); Исключение Возврат Неопределено; КонецПопытки; WordDoc = WD.ActiveDocument; wdWord = 2; wdExtend = 1; wdWindowStateMaximize = 1; WD.ActiveWindow.View.ShowFieldCodes = 0; NumOfFields = WordDoc.Fields.Count; // Колонтитулы Для Сч = 1 по WordDoc.Sections.Count Цикл ЗаполнитьКолонтитул(Сч, 1, WD, WordDoc, СсылкаНаОбъект, Неопределено); ЗаполнитьКолонтитул(Сч, 2, WD, WordDoc, СсылкаНаОбъект, Неопределено); ЗаполнитьКолонтитул(Сч, 3, WD, WordDoc, СсылкаНаОбъект, Неопределено); КонецЦикла; //Шапка Для Инд = 1 по WordDoc.Fields.Count Цикл Ном = NumOfFields - Инд + 1; Если Ном > WordDoc.Fields.Count Тогда Продолжить КонецЕсли; WordDoc.Fields(Ном).Select(); ИмяРеквизита = WD.Selection.Text; Если ПустаяСтрока(ИмяРеквизита) Тогда WD.ActiveWindow.View.ShowFieldCodes = -1; WD.Selection.Delete(); WD.ActiveWindow.View.ShowFieldCodes = 0; Продолжить; КонецЕсли; Значение = УПН_ОбщиеПроцедуры.ПолучитьЗначениеРеквизитаДляWord(СсылкаНаОбъект, ИмяРеквизита, ПолучитьСсылкуНаЗащищеннуюОбработку()); Если Значение <> Неопределено И ЗначениеЗаполнено(Значение) Тогда Wd.ActiveWindow.View.ShowFieldCodes = -1; Wd.Selection.Text = Строка(Значение); Wd.ActiveWindow.View.ShowFieldCodes = 0; Иначе А = 3; Wd.Selection.Font.Size = 20; Wd.Selection.Font.Color = ХОЧУ ТУТ КРАСНЫЙ ЦВЕТ!!!; КонецЕсли; КонецЦикла; |
|||
26
Reset
10.12.12
✎
15:53
|
(23) Тоже читал? :)
|
|||
27
ParinovS
10.12.12
✎
15:53
|
(19) ой, вот так надо
Selection.Font.Color = wdColorRed |
|||
28
Wobland
10.12.12
✎
15:54
|
(26) смотрел!
|
|||
29
Wobland
10.12.12
✎
15:54
|
(27) переменная не определена
|
|||
30
Wobland
10.12.12
✎
15:55
|
+(28) в первой половине пятницы ж ссылку на экранизацию давали
|
|||
31
ДайтеДайте Сказать
10.12.12
✎
15:55
|
(27) Чему равна wdColorRed в одинес?
|
|||
32
Wobland
10.12.12
✎
15:56
|
(31) мсдн знает
|
|||
33
Китайский Муй
10.12.12
✎
15:56
|
(28) А я - присутствовал на совещании. :)))
|
|||
34
Undefined vs NULL
10.12.12
✎
15:57
|
а если (14)?
|
|||
35
НЕА123
10.12.12
✎
16:02
|
255
|
|||
36
ДайтеДайте Сказать
10.12.12
✎
16:03
|
Word.WdColor.wdColorRed - ошибку выдает
|
|||
37
Reset
10.12.12
✎
16:04
|
(36) А если (35) или (12)?
|
|||
38
ParinovS
10.12.12
✎
16:06
|
(37) 255 только что отладчиком проверил!
|
|||
39
ДайтеДайте Сказать
10.12.12
✎
16:07
|
(37) Wd.Selection.Font.Color = 16711680
Такой текст синий дает, а мне красный надо :) Как красный получить? |
|||
40
Reset
10.12.12
✎
16:07
|
(39) --> (35)
|
|||
41
ParinovS
10.12.12
✎
16:07
|
Wd.Selection.Font.Color = 255
|
|||
42
ДайтеДайте Сказать
10.12.12
✎
16:09
|
(41) спасибо, друг!
|
|||
43
Reset
10.12.12
✎
16:10
|
(42) А тому, кто правильный ответ дал, не надо спасибо?
|
|||
44
ParinovS
10.12.12
✎
16:12
|
(43) все лавры мои!!!)) нормально все) :-Р
|
|||
45
Reset
10.12.12
✎
16:12
|
(44) :))
|
|||
46
ДайтеДайте Сказать
10.12.12
✎
16:18
|
(43) и тому спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |