Делая определенную часть таблицы жирным шрифтом

Question

Я изменяю код скрипта, который используется для автоматической вставки подписи outlook на основе AD.Теперь у меня возникли некоторые проблемы с форматированием

У меня есть одна ячейка, которая содержит большую часть полезной информации, но мне нужно, чтобы имя и фамилия были выделены жирным шрифтом.И другая информация в тех же строках и под ней, чтобы следовать информации о формате, которая была дана над ней

Я попытался разделить код в разных ячейках, но форматирование пошло не так, как надо

objTable.Cell(1, 2).Range.Text = strFirstName & " " & strLastName & " | " & strTitle & Chr(11) & strDepartment & Chr (11) & Chr(11) & strAdress & ", " & strPostal &  " " & strCity & Chr (11) & "T" &  " " & strPhone & strTelefoon & Chr (11) & "E " & strEmail

strFirstName и strLastName должны быть выделены жирным шрифтом

Answer 1

Спасибо за все ответы!

Я исправил это, выбрав .select

objTable.Cell(1,2).select
objSelection.Font.Name = "Calibri Light"
objSelection.Font.Size = "11"
objSelection.Font.Color = RGB(23,68,153)
If strFirstName <> "" Then
            objSelection.Font.Bold = True
            objSelection.TypeText strFirstName & " " & strLastName
            objSelection.Font.Bold = False
End If
If strTitle <> "" Then
    ObjSelection.TypeText " | " & strTitle 
End If
ObjSelection.TypeText (Chr(11))
ObjSelection.TypeText strDepartment 
ObjSelection.TypeText (Chr(11))
If strFirstName <> "" Then
            objSelection.Font.size = 5
            objSelection.TypeText " "
            objSelection.Font.size = 11
End If
ObjSelection.TypeText (Chr(11))
ObjSelection.TypeText strAdress & ", " & strPostal &  " " & strCity
ObjSelection.TypeText (Chr(11))
If strPhone <> "" Then
            objSelection.Font.Bold = True
            objSelection.TypeText "T " 
            objSelection.Font.Bold = False
End If
ObjSelection.TypeText strPhone 
If strGSM <> "" Then
            objSelection.TypeText " | " 
            objSelection.Font.Bold = True
            objSelection.TypeText " G " 
            objSelection.Font.Bold = False
End If
ObjSelection.TypeText strTelefoon 
ObjSelection.TypeText (Chr(11))
If strEmail <> "" Then
            objSelection.Font.Bold = True
            objSelection.TypeText "E " 
            objSelection.Font.Bold = False
            objSelection.TypeText strEmail
End If

Answer 2

Попробуйте:

With objTable.Cell(1, 2).Range
  .Text = strFirstName & " " & strLastName & " | " & strTitle & Chr(11) & _
  strDepartment & Chr(11) & Chr(11) & _
  strAdress & ", " & strPostal & " " & strCity & Chr(11) & _
  "T" & " " & strPhone & strTelefoon & Chr(11) & _
  "E " & strEmail
  .End = .Start + InStr(.Text, " | ") - 1
  .Font.Bold = True
End With