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

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