Word VBA:在用户对话窗口中操作时，如何显示更改的选择对象？

Sub ShowSelection()
    Dim selectionText As String
    Dim choice As Integer
    
    ' 获取当前选定的文本
    selectionText = Selection.Text
    
    ' 显示对话框并获取用户的选择
    choice = MsgBox("您选择的对象是：" & selectionText & "，是否确认继续操作？", vbYesNo)
    
    ' 根据用户的选择执行相应的操作
    If choice = vbYes Then
        ' 用户选择了“是”，执行相应的操作
        ' ...
    Else
        ' 用户选择了“否”，执行相应的操作
        ' ...
    End If
End Sub