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

【问题标题】：Multiline textbox set first line to bold font多行文本框将第一行设置为粗体
【发布时间】：2019-08-16 12:44:20
【问题描述】：

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

名称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

【问题讨论】：

标签： vba ms-word userform

【解决方案1】：

解决了我的问题。

我的文本书签中的第一行已经是粗体（当我手动输入文本时标记了它），这就是代码不起作用并且一切都变得粗体的原因。上面的代码正在工作，只是将在文本字段中输入的第一行加粗！

【讨论】：