Многострочное текстовое поле устанавливает жирным шрифтом в первой строке

Question

У меня есть пользовательская форма с многострочным текстовым полем для адреса в формате

Имя1 Имя2
Номер улицы
Почтовый индекс

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

Private Sub CommandButton1_Click()
Dim rngDoc As Range
Dim oDoc As Document
Dim cText As String
Dim oRng As Range
Dim oBM As Bookmark

Set oDoc = ActiveDocument

cText = TextBox5.Text

With oDoc
If .Bookmarks.Exists("Adresse") Then
Set oRng = .Bookmarks("Adresse").Range
oRng.Text = cText
Set oBM = .Bookmarks.Add(Name:="Adresse", Range:=oRng)
.Bookmarks("Adresse").Range.Paragraphs(1).Range.Font.Bold = True
End If
End With
End Sub

Answer 1

Исправил мою проблему.

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