Das zweite Wort Meldungsfeld zeigt

Question

Ich möchte ein Meldungsfeld generieren, wenn mehr als ein Wort in dem bestimmten Absatz ausgewählt ist und das zweite Wort darin angezeigt werden soll. Wenn nur ein einzelnes Wort vorhanden ist, sollte ein leeres Meldungsfeld angezeigt werden. Unten ist der Code angegeben, den ich generiert habe. Gibt es eine alternative Methode dafür?

Answer 1

Auf diese Weise können Sie mit Index-Fehlern umgehen und für mehrere ausgewählte Absätze ausführen.

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