'Primer 21: Formular koji na osnovu zadatog rednog broja pasusa aktivnog dokumenta 
'ispisuje broj karaktera, reci i recenica tog pasusa (Label, TextBox i CommandButton) 
'frmPrimer21
Option Explicit

Private Sub m_btnPrikazStatistike_Click()
    Dim brPasusa As Integer
    Dim rbPasusa As Integer
    If Application.Documents.Count = 0 Then
        MsgBox "Niste otvorili nijedan dokument"
        Exit Sub
    End If
    
    brPasusa = ActiveDocument.Paragraphs.Count
    If m_txtRedniBrojPasusa.Text = "" Then
        MsgBox "Niste zadali redni broj pasusa"
    Else
        rbPasusa = m_txtRedniBrojPasusa.Value
        If rbPasusa < 1 Or rbPasusa > brPasusa Then
            MsgBox "Zadati redni broj pasusa je van dozvoljenog opsega"
        Else
            Dim p As Paragraph
            Dim brKaraktera As Integer
            Dim brReci As Integer
            Dim brRecenica As Integer
            Set p = ActiveDocument.Paragraphs(rbPasusa)
            brKaraktera = p.Range.Characters.Count
            brReci = p.Range.Words.Count
            brRecenica = p.Range.Sentences.Count
            Dim sPoruka As String
            sPoruka = "Duzina pasusa: " & brKaraktera & " karakter(a)" & vbNewLine
            sPoruka = sPoruka & "Broj reci: " & brReci & " rec(i)" & vbNewLine
            sPoruka = sPoruka & "Broj recenica: " & brRecenica & " recenica" & vbNewLine
            m_lbPrikazStatistike.Caption = sPoruka
        End If
    End If
End Sub