두 번째 단어 메시지 상자 표시

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