多行文本框将第一行设置为粗体

Question

我有一个用户窗体，其中包含用于地址的多行文本框，格式为

Name1 Name2
街道编号
ZIP地方

现在，我想以粗体显示第一行。我已经在UserForm中创建了一个文本框，该文本框填充了文本标记，但是我无法使它正常工作，只是第一行是粗体，而其余部分正常，我只是使整个文本框都变为粗体。

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

解决了我的问题。

我的文本书签中的第一行已经是粗体（当我手动输入文本时将其标记），这就是代码无法正常工作且所有内容都变为粗体的原因。上面的代码可以正常工作，只是将第一行加粗，将其输入到文本字段中！