'Primer 23: Formular koji na osnovu zadatog rednog broja pasusa aktivnog dokumenta 
'ispisuje broj karaktera, reci i recenica tog pasusa (Label i ComboBox) 
'frmPrimer23
Option Explicit

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

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