|
оформление в 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) спасибо
|
|