Здравствуйте!
Сохраняю табличный документ в excel. Далее необходимо подчеркнуть одно из слов в ячейке excel. Саму ячейку целиком подчеркнуть могу, а вот добраться до слова внутри её не получается. Возможно ли это? Если да, то как? Заранее спасибо!

Неа

(0) Нет

(1), (2) Спасибо!

(0) Руками можно, значит, теоретически возможно и программно.

(4) Точно, руками можно... век живи, век учись, спасибо товарищ!

(5) начать запись макроса, подчеркнуть руками, почитать макрос

(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С делать.

ну номр
ActiveCell.Characters(Start:=26, Length:=15).Font.Underline = xlUnderlineStyleNone
ActiveCell.Characters(Start:=19, Length:=7).Font.Underline = xlUnderlineStyleSingle

(8) Получилось Вашим способом. Огромное спасибо!