Имя: Пароль:
1C
1С v8
Подчеркнуть одно из слов в ячейке Excel
0 Napalmmm
 
14.10.15
10:27
Здравствуйте!
Сохраняю табличный документ в excel. Далее необходимо подчеркнуть одно из слов в ячейке excel. Саму ячейку целиком подчеркнуть могу, а вот добраться до слова внутри её не получается. Возможно ли это? Если да, то как? Заранее спасибо!
1 ibreiter
 
14.10.15
10:30
Неа
2 DDwe
 
14.10.15
10:31
(0) Нет
3 Napalmmm
 
14.10.15
10:34
(1), (2) Спасибо!
4 Fish
 
14.10.15
10:36
(0) Руками можно, значит, теоретически возможно и программно.
5 DDwe
 
14.10.15
10:40
(4) Точно, руками можно... век живи, век учись, спасибо товарищ!
6 MiniMuk
 
14.10.15
10:42
(5) начать запись макроса, подчеркнуть руками, почитать макрос
7 Fish
 
14.10.15
10:50
(6) Вот что получилось:
"   Range("A1").Select
    ActiveCell.FormulaR1C1 = "авпвап апы ывап   авпывап  вапвап апы ва"
    With ActiveCell.Characters(Start:=1, Length:=18).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
    With ActiveCell.Characters(Start:=19, Length:=7).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=26, Length:=15).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
    Range("A2").Select
End Sub.

Теперь осталось понять стоит ли овчинка выделки, чтобы это из 1С делать.
8 MiniMuk
 
14.10.15
10:54
ну номр
ActiveCell.Characters(Start:=26, Length:=15).Font.Underline = xlUnderlineStyleNone
ActiveCell.Characters(Start:=19, Length:=7).Font.Underline = xlUnderlineStyleSingle
9 Napalmmm
 
14.10.15
11:26
(8) Получилось Вашим способом. Огромное спасибо!