显示第二个字的消息框

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