Excel: как получить только "жирную" часть текста ячейки #198753

Здравствуйте господа. Есть ячейка, а в ней часть текста имеет жирный шрифт, другая - нет. Внимание вопрос: как мне получить только "жирную" часть текста?

Это с 1С формируется такой файлик?

Вообще говоря 1С тут не при чем. Забыл тему изменить. Пишу(вернее пытаюсь) в эксельном VBA

вот какой макрос у меня записался... ActiveCell.FormulaR1C1 = "aqwerye rwetuwrtu stuwrtuswrt"    With ActiveCell.Characters(Start:=1, Length:=7).Font        .Name = "Arial Cyr"        .FontStyle = "???????"        .Size = 10        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic    End With    With ActiveCell.Characters(Start:=8, Length:=22).Font        .Name = "Arial Cyr"        .FontStyle = "??????????"        .Size = 10        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic    End With

ActiveCell.FormulaR1C1 = "aqwerye rwetuwrtu stuwrtuswrt"    With ActiveCell.Characters(Start:=1, Length:=7).Font        .Name = "Arial Cyr"        .FontStyle = "обычный"        .Size = 10        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic    End With    With ActiveCell.Characters(Start:=8, Length:=22).Font        .Name = "Arial Cyr"        .FontStyle = "полужирный"        .Size = 10        .Strikethrough = False        .Superscript = False        .Subscript = False        .OutlineFont = False        .Shadow = False        .Underline = xlUnderlineStyleNone        .ColorIndex = xlAutomatic    End With

или Спасибо друг.

чего то я не вижу тут заветного слова Bold.. а если неизвесно после какого символа текст нежирный?

из этого получаем    While i < ActiveCell.Characters.Count        s = ActiveCell.Characters(i, 1).Font.FontStyle        //если s="полужирный" или "обычный"        i = i + 1    Wend

Всем спасибос за старания, общия идея понятна.

идея тут одна всегда Сервис-Макрос-НачатьЗапись

угу