在word vba中获取带有光标和多个逗号的句子

Sub GetSentenceWithCursorAndCommas()
    Dim currentSentence As Range
    Dim sentenceText As String
    Dim sentenceArray() As String
    
    ' 获取当前光标所在的句子
    Set currentSentence = Selection.Range.Sentences.Item(1)
    
    ' 获取句子的文本
    sentenceText = currentSentence.Text
    
    ' 判断句子中是否包含多个逗号
    If InStr(sentenceText, ",") > 0 Then
        ' 将句子按逗号分割成数组
        sentenceArray = Split(sentenceText, ",")
        
        ' 判断数组的长度是否大于1
        If UBound(sentenceArray) > 0 Then
            ' 句子中包含多个逗号
            MsgBox "句子中包含多个逗号。"
        Else
            ' 句子中只有一个逗号
            MsgBox "句子中只有一个逗号。"
        End If
    Else
        ' 句子中没有逗号
        MsgBox "句子中没有逗号。"
    End If
End Sub