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

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

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

(0)
вот какой макрос у меня записался...

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

(3) или (4) Спасибо друг.

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

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

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

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

угу