Имя: Пароль:
1C
1С v8
оформление в excel через com
0 In-Vin
 
17.02.12
12:17
создаю excel файл, задаю строковое значение для ячейки, нужно изменить стиль его шрифта у части символов.

Делаю так:
Для Каждого Символ из Range4.Characters цикл
Символ.Font.FontStyle = "Подчеркнутый";
КонецЦикла;

итак:
Для Каждого Символ из Range4.Characters(10, СтрДлина(Range4.Value)-10) Цикл
Символ.Font.FontStyle = "Подчеркнутый";
КонецЦикла;
пишет, что "Итератор для значения не определен"

можно ли как-то обратиться к отдельному символу?
1 le_
 
17.02.12
12:28
   With ActiveCell.Characters(Start:=1, Length:=3).Font
       .Name = "Calibri"
       .FontStyle = "обычный"
       .Size = 11
       .Strikethrough = False
       .Superscript = False
       .Subscript = False
       .OutlineFont = False
       .Shadow = False
       .Underline = xlUnderlineStyleNone
       .ThemeColor = xlThemeColorLight1
       .TintAndShade = 0
       .ThemeFont = xlThemeFontMinor
   End With
2 n koretsky
 
17.02.12
12:28
когдато пробовал. не вышло. только к ячейке.
запиши макрос, проверь. ежели выйдет - хвастайся кодом.
3 In-Vin
 
17.02.12
12:32
(1) это скрипт? А как запустить его выполнение?
4 le_
 
17.02.12
12:58
(3) Это макрос.

Код 1С:
Йоксель     = Новый  COMОбъект("Excel.Application");
ФайлЙоксель = Йоксель.Workbooks.Open("d:\test.xlsx");
Йоксель.ActiveCell(1, 1).Activate();
Йоксель.Visible = True;
Йоксель.ActiveCell.Characters(9, 4).Font.Underline = True;
Йоксель.ActiveCell.Characters(9, 4).Font.Size = 20;//ну, еще шрифт увеличим
5 In-Vin
 
17.02.12
13:01
(4) спасибо