'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