如何将VBA UserForm TEXTBOX1的日期插入指定语句末尾？

需求说明 #

• 用户可在UserForm的TEXTBOX1中输入日期，原代码将该日期插入到文档BOOKMARK1书签位置
• 选中OptionButton2时，代码会向BOOKMARK2书签位置插入三段预设文本，现在需要把TEXTBOX1中的日期追加到**"EXAMPLE SENTENCE 2"的末尾**（即原代码中& Chr(11) &之前的位置）

修改后的完整代码 #

Private Sub OptionButton2_Click()
    If Me.OptionButton2.Value = True Then
        Set oRng = ActiveDocument.Bookmarks("BOOKMARK2").Range
        oRng.Text = "EXAMPLE SENTENCE 1" & Chr(11) & Chr(9) & _
                    "EXAMPLE SENTENCE 2" & Me.TEXTBOX1.Value & Chr(11) & _
                    "EXAMPLE SENTENCE 3" & vbNewLine & " "
        ActiveDocument.Bookmarks.Add "BOOKMARK2", oRng
    End If
End Sub

关键改动说明 #

只需要在原代码的"EXAMPLE SENTENCE 2"后拼接Me.TEXTBOX1.Value，就能把用户输入的日期直接追加到这句话的末尾，刚好落在原代码中& Chr(11) &之前的位置，完全符合需求。

如果需要避免日期为空时出现多余空白，可添加简单判断：

Private Sub OptionButton2_Click()
    If Me.OptionButton2.Value = True Then
        Dim dateText As String
        dateText = IIf(Me.TEXTBOX1.Value <> "", Me.TEXTBOX1.Value, "")
        
        Set oRng = ActiveDocument.Bookmarks("BOOKMARK2").Range
        oRng.Text = "EXAMPLE SENTENCE 1" & Chr(11) & Chr(9) & _
                    "EXAMPLE SENTENCE 2" & dateText & Chr(11) & _
                    "EXAMPLE SENTENCE 3" & vbNewLine & " "
        ActiveDocument.Bookmarks.Add "BOOKMARK2", oRng
    End If
End Sub

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