用户窗体选择后，为Word书签处插入的文本设置格式

完全可以实现你要的格式要求，只需在插入文本后针对书签范围设置格式即可，同时建议保留书签（避免后续无法再次定位），修改后的VBA代码如下：

Dim strSub As String
Dim bookmarkRange As Range

' 根据复选框选择设置文本内容
If CheckBox1 = True Then
    strSub = "Notice of Data Security Incident "
ElseIf CheckBox2 = True Then
    strSub = "Notice of Data Breach"
End If

' 获取书签对应的范围，避免替换文本后书签丢失
Set bookmarkRange = ActiveDocument.Bookmarks("CalSub").Range

' 插入文本并设置格式
With bookmarkRange
    .Text = strSub
    ' 统一添加下划线
    .Font.Underline = wdUnderlineSingle
    ' 如果是CheckBox2选中，额外设置加粗
    If CheckBox2 = True Then
        .Font.Bold = True
    End If
    ' 重新添加书签，确保后续可再次使用
    ActiveDocument.Bookmarks.Add Name:="CalSub", Range:=.Duplicate
End With

代码说明： #

• 用ElseIf替代原代码的两个If，避免同时勾选时文本被重复覆盖（如果你的窗体是单选逻辑，这个优化更合理）
• 先获取书签的Range对象，方便后续统一操作文本和格式
• 统一设置Font.Underline为单下划线（wdUnderlineSingle是Word内置格式常量）
• 针对CheckBox2选中的情况，额外开启加粗格式
• 最后重新添加书签，保证替换文本后书签依然存在，方便后续再次编辑定位

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