'Primer 22a: poziv forme koja na osnovu zadatog rednog broja pasusa aktivnog dokumenta 
'ispisuje broj karaktera, reci i recenica tog pasusa (Label, ComboBox i CommandButton) 
Option Explicit

Sub testForme22()
    If Application.Documents.Count = 0 Then
        MsgBox "Niste otvorili nijedan dokument"
    Else
        frmPrimer22.Show vbModeless
    End If
End Sub