显示第二个单词消息框

Question

每当选定的特定段落中有多个单词，并且第二个单词应该显示在其中时，我都想生成一个消息框。如果只有一个单词，则应该显示一个空消息框。下面提供的是我生成的代码。有其他方法吗？

    Sub Second()
        Dim oPara As Paragraph
        Dim Fi As String
        Dim First  As String
        For Each oPara In Selection.Paragraphs
            Fi = oPara.Range.Text
            Dim arr() As String
            arr = VBA.Split(Fi, " ")
            First = arr(1)
        Next
        MsgBox First
    End Sub

Answer 1

通过这种方式，您可以处理索引越界错误，并可以为所选的多个段落运行。

Sub Second()
    Dim oPara As Paragraph
    Dim Fi As String
    Dim First  As String
    For Each oPara In Selection.Paragraphs
        Fi = oPara.Range.Text
        'ignore empty paragraphs
        If Len(Fi) <> 1 Then
            Dim arr() As String
            arr = VBA.Split(Fi, " ")
            On Error GoTo errHandler
            First = arr(1)
            GoTo regular
errHandler:
            First = ""
regular:
            MsgBox First
        End If
    Next
    End Sub