如何通过VBA用户窗体向Word文档插入带指定格式的文本

直接替换原有按钮点击事件代码即可满足全部格式要求，代码如下：

Private Sub CommandButton2_Click()
    Dim rng As Range
    ' 定位到文档末尾
    Selection.EndKey wdStory
    Set rng = Selection.Range
    
    ' 插入第一行加粗文本
    rng.Text = vbCr & TextBox1.Text
    rng.Font.Bold = True
    rng.Collapse wdCollapseEnd
    
    ' 插入第二行可点击超链接
    rng.Text = vbCr
    ActiveDocument.Hyperlinks.Add Anchor:=rng, Address:=TextBox2.Text, TextToDisplay:=TextBox2.Text
    rng.Collapse wdCollapseEnd
    
    ' 插入第三行普通文本
    rng.Text = vbCr & TextBox3.Text & " at " & TextBox4.Text
    rng.Font.Bold = False
End Sub

关键说明 #

• 不再一次性拼接所有纯文本，逐段插入内容后通过Collapse wdCollapseEnd将操作游标移动到当前内容末尾，避免覆盖已设置的格式
• 第一行插入后直接给对应范围设置Font.Bold = True，即可实现加粗效果
• 超链接调用Word原生Hyperlinks.Add方法生成，自动匹配默认超链接样式：蓝色字体、带下划线、可点击跳转，无需手动调整字体属性
• 第三行普通文本插入后显式设置Font.Bold = False，自动回归正文默认格式，不会继承前面加粗、超链接的样式

内容的提问来源于stack exchange，提问作者VBAbyMBA