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

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

解决了我的问题。

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

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

Multiline textbox set first line to bold font

vba

ms-word

userform