Блог

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

Имя 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
  

Исправлена моя проблема.

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