'Primer 15e: Izmena Word-dokumenta ciji je sadrzaj deo titla primenom klasa Paragraphs, Words, Paragraph i Range 
'"Obican" Modul Cas7
'reci sa indeksima 1, 3, 5 i 7 predstavljaju sate, minute, sekunde i milisekunde pocetnog vremena
'reci sa indeksima 9, 11, 13 i 15 predstavljaju sate, minute, sekunde i milisekunde zaustavnog vremena
Sub testTitl3()
    Dim objTitl As Titl
    Dim i As Integer
    Dim brPasusa As Integer
    Dim p As Paragraph
    Dim sPoruka As String
    With ActiveDocument 'omogucava da u okviru With-bloka ne moramo da pisemo ActiveDocument
        brPasusa = .Paragraphs.Count 'skr. za brPasusa = ActiveDocument.Paragraphs.Count
        For i = 2 To brPasusa Step 4
            Set p = .Paragraphs(i) 'skr. za Set p = ActiveDocument.Paragraphs(i)
            Dim vPoc As New Vreme
            vPoc.init2 p.Range.Words(1), p.Range.Words(3), p.Range.Words(5), p.Range.Words(7)
            Dim vKraj As New Vreme
            vKraj.init2 p.Range.Words(9), p.Range.Words(11), p.Range.Words(13), p.Range.Words(15)
            Dim sPrevod As String
            sPrevod = .Paragraphs(i + 1).Range.Text
            Set objTitl = New Titl
            objTitl.init2 vPoc, vKraj, sPrevod
            sPoruka = "polazni titl" & vbNewLine & objTitl.formatiraj & vbNewLine
                  
            'Menjamo vreme za 10s (novi titl kasni 10 sekundi u odnosu na polazni)
            objTitl.azuriraj "+00:00:10,000"
            sPoruka = sPoruka & "posle +00:00:10" & vbNewLine & objTitl.formatiraj
            MsgBox sPoruka
            p.Range.Text = objTitl.formatirajVreme
        Next
    End With
End Sub