Выделите определенный текст в пределах диапазона (разбит на несколько ячеек)

Question

Я создаю шаблон в Excel, и мне бы хотелось, чтобы фраза «6. Описание резюме» была выделена жирным шрифтом с использованием VBA. Ячейка, в которой находится фраза, не является статичной, поэтому код должен иметь возможность подобрать фразу в любом месте диапазона.

В настоящее время код делает весь диапазон A1: G100 жирным шрифтом

Вот что я пробовал:

 Set BoldRange = Range("A1:G100").Find("6. Description Summary:")
        If Not (BoldRange Is Nothing) Then
            BoldRange.Font.Bold = True
        End If

Буду признателен, если вы дадите мне знать, если естьэто способ отредактировать этот код, чтобы сделать его жирным только указанный текст.

Обновление: текст разбит на несколько ячеек, поэтому я на самом деле хочу выделить только указанную строку.

Answer 1

Код делает то, что вы хотите, я сам проверил. Set BoldRange = Range ("A1: G100"). Find ("6. Описание Summary:") возвращает диапазон, в котором находится строка, и это единственная ячейка, которая выделена жирным шрифтом. Проверьте в своем коде, если вы не манипулируете диапазоном где-то еще, где вы можете изменить весь диапазон на жирный. Ниже код, который я использовал, на случай, если он поможет (только ваш в Sub ()):

Sub FindAndBold() Set BoldRange = Range("A1:G100").Find("6. Description Summary:") If Not (BoldRange Is Nothing) Then BoldRange.Font.Bold = True End If End Sub