'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