Из 1с. В одной ячейке часть текста жирным, часть обычным. Надо выделить жирную. Есть мысли? Спасибо.

msdn. на здоровье

(1) Послал в библиотеку...

(2) сори за оффтоп , не сдержался .
сидишь ты значит такой в общественном туалете , сделал все свои дела и вдруг понимаешь , что бумаги то нету , но тут замечаешь что в соседней кабинке тоже кто то есть , ну и так вежливо его просишь отмотать тебе немного , а он тебе такой ,за  место ожидаемой туалетной бумаги , протягивает топор и карту местности на которой отмечен ближайший лесной массив )

(0) Как сделал из 1С в Excel, часть жирным, а часть не жирным?

(4) если бы он, то вряд-ли у него возник вопрос из (0)

(4) читает готовый..

(0) а в самом Excel"е с помощью макросов не определяется?

(3) Картой, картой можно будет воспользоваться!!!

(7) :) заламинирована

(6) Если готовый и там в одной ячейке жирный и не жирный, то это уже не из 1С...

(0) Под "выделить", что подразумевается?

(4) Да, загрузка прайса, где жирным - название, простым - описание.
(6) Макросом не пробовал, но каких-то доп.действий лучше не делать, все-таки пользователю обработка.
(7) Ссылка на телефон гуглмапса ))

(10) - жирным в одну переменную, обычным - в другую.

(11) запиши макрос с выделением части текста и изменением жирноты, посмотри код, воспроизведи у себя по аналогии

(11) а и не делай. просто проследи за мужиком с топором и картой и сделай так же

(3) сравнить программирование с сёром - это очень сильно. Практически одно и то же понятие

Мужика, который ходит в туалет с топором, лучше ни о чем не спрашивать.

(15) смотря на какой платформе

проверяй:
workSheets(1).Cells(x,y).Font.Bold = true|false

(18) это с первого по пятый символ?

Лист.Cells(НомерСтроки,НомерКолонки).Font.Bold = 1

(18), (20) = null
(value - есть)

этото не то?

Msg: String;
...
    Msg := ' Человек собаке друг J';
    // занесем тест в ячейку
    ASheet.Range['B3', EmptyParam].Formula := Msg;
    // займемся последним символом - изменим атрибуты шрифта
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Name :=
      'Wingdings';
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Size := 24;
    ASheet.Range['B3', EmptyParam].Characters[Length(Msg), 1].Font.Color := clBlue;

(15) тут аналогия не в самом действие , а в том просящему дуют немного не то что он просит , но в то же время как бы не отказывают , просто не жуют за него и в рот не ложат , а предлагают самому приготовить и съесть .

(23) Просящие перед тем, как попросить прошерстил форум и немножко яндекс. И шерстит до сих пор. Но просящий - тупой 1с-ник, поэтому высшие языки ему сложны.

(24) Вот еще первая ссылка в гугле

Sub Форматирование()
    Dim ra As Range, cell As Range: Application.ScreenUpdating = False
    Set ra = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
    ' диапазон ra - все заполненные ячейки активного листа

    For Each cell In ra.Cells
        ' разбиваем текст в строке за отдельные строки (разделителем является символ Chr(10))
        arr = Split(cell.Value, Chr(10))    ' получаем массив, количество элементов в котором равно числу строк в ячейке
        ' каждый элемент массива arr - текст очередной строки

        If UBound(arr) >= 2 Then    ' UBound(arr) - верхняя граница полученного массива
            ' эта граница на 1 меньше, чем количество элементов в нём (строк в ячейке)
            ' (поскольку элементы в массиве нумеруются с нуля)

            ' Обрабатывать текст ячейки будем только в том случае, если UBound(arr) >= 2
            ' т.е. если количество строк в ячейке не меньше трёх

            ' вычисляем позицию первого символа для форматирования:
            pos = Len(arr(0)) + Len(arr(1)) + 3            ' длина первой строки + длина второй строки
            ' + 2 символа перевода строки + 1

            lenght = Len(arr(2))    ' длина третьей строки

            With cell.Characters(pos, lenght)    ' в качестве параметров указываем pos - позицию
                ' первого обрабатываемого символа, и lenght - количество символов для обработки

                .Font.Color = vbBlue: .Font.Bold = True: .Font.Size = 10    ' собственно, само форматирование
            End With

            ' а теперь покрасим первую строку в ячейке:
            With cell.Characters(1, Len(arr(0)))    ' в качестве параметров указываем 1 - позицию
                ' первого обрабатываемого символа, и Len(arr(0)) - количество символов в первой строке

                .Font.Color = vbRed: .Font.Bold = True: .Font.Size = 12    ' собственно, само форматирование
            End With
        End If
    Next cell
End Sub

(21) все робит в (18) (20)
true(1) и false (0)

(26) помогло через Characters. Спасибо всем.