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
Dim arr() As String
arr = VBA.Split(Fi, " ")
First = arr(1)
Next
MsgBox First
End Sub