'Primer 22: Formular koji na osnovu zadatog rednog broja pasusa aktivnog dokumenta 
'ispisuje broj karaktera, reci i recenica tog pasusa (Label, ComboBox i CommandButton) 
'frmPrimer22

Private Sub UserForm_Initialize()
    Dim brPasusa As Integer
    brPasusa = ActiveDocument.Paragraphs.Count
    Dim i As Integer
    For i = 1 To brPasusa
        m_cmbRedniBrojPasusa.AddItem i
    Next
End Sub

Private Sub m_btnPrikazStatistike_Click()
    Dim rbPasusa As Integer
    'indeksi opcija idu od 0, pasusi su numerisani od 1
    rbPasusa = m_cmbRedniBrojPasusa.ListIndex + 1
    If rbPasusa = 0 Then 'm_cmbRedniBrojPasusa.ListIndex = -1
        MsgBox "Niste zadali redni broj pasusa"
    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 Sub