Имя: Пароль:
1C
1С v8
Как задать красный цвет?
,
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) и тому спасибо!
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.