Wd.Selection.Font.Size = 20;
Wd.Selection.Font.Color = ???????? - что тут надо написать чтобы был красный?

из одинеса?

= Новый Цвет(255, 0, 0);

Wd это что?

Wd - Witch Doctor?

Что такое Wd и зачем там красный?

(4) Whore Doctor :-)

Western Digital

{ОбщийМодуль.ОбщиеПроцедурыКлиент.Модуль(148)}: Ошибка при установке значения атрибута контекста (Color)
           Wd.Selection.Font.Color = Новый Цвет(255, 0, 0);
по причине:
Неизвестная ошибка

WD = Новый COMOBject("Word.Application");
   Попытка
       WordDoc = WD.Documents.Open(ПолноеИмяФайла,,0);
   Исключение
       Возврат Неопределено;
   КонецПопытки;
   
   WordDoc = WD.ActiveDocument;
   wdWord = 2;
   wdExtend = 1;
   wdWindowStateMaximize = 1;
   WD.ActiveWindow.View.ShowFieldCodes = 0;

(8) и чё?

WebЦвета.Красный, не?

Wd.Selection.Font.Color = 16711680

(9) А причем тут 1С, если ты в верде работаешь?
см (11)

Word.WdColor.wdColorRed

(10) в (9) написал

(11) Отменяется.
(9) Вопрос с намеком - а не должен ли цвет быть цветом Word, а не 1С?

(0) макрос надо написать. и посмотреть, что такое красный цвет с точки зрения ворда

(12) Это если там 3х байтовый RGB (я не в курсе)

попробуй 3

(0) алгоритм делания чего-либо из 1с в ексель - берешь ексель! пишешь макрос! открываешь! читаешь! кодишь!

(16) ну сказал же автор, что цвет должен быть красным, а никаким не вордом

(21) сдается мне, автор хочет нарисовать красную линию зеленым вордом

(22) семь. причём перпендикулярных

(22) Семь перпендикулярных красных линий, из них 2 зеленых и 1 прозрачную (с)

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 = ХОЧУ ТУТ КРАСНЫЙ ЦВЕТ!!!;
       КонецЕсли;
   КонецЦикла;

(23) Тоже читал? :)

(19) ой, вот так надо
Selection.Font.Color = wdColorRed

(26) смотрел!

(27) переменная не определена

+(28) в первой половине пятницы ж ссылку на экранизацию давали

(27) Чему равна wdColorRed в одинес?

(31) мсдн знает

(28) А я - присутствовал на совещании. :)))

а если (14)?

255

Word.WdColor.wdColorRed - ошибку выдает

(36) А если (35) или (12)?

(37) 255 только что отладчиком проверил!

(37) Wd.Selection.Font.Color = 16711680

Такой текст синий дает, а мне красный надо :)

Как красный получить?

(39) -->  (35)

Wd.Selection.Font.Color = 255

(41) спасибо, друг!

(42) А тому, кто правильный ответ дал, не надо спасибо?

(43) все лавры мои!!!)) нормально все) :-Р

(44) :))

(43) и тому спасибо!