'Primer 15d: Testiranje rada sa objektima klasa Paragraphs, Words, Paragraph i Range 
'na Word-dokumentu ciji je sadrzaj deo titla
'"Obican" Modul Cas7
Sub testTitl2()
    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
            sPoruka = ""
             Set p = .Paragraphs(i) 'skr. za Set p = ActiveDocument.Paragraphs(i)
             sPoruka = p.Range.Text & " ima " & p.Range.Words.Count & " reci i to:" & vbNewLine
             Dim rec As Object
             For Each rec In p.Range.Words
                sPoruka = sPoruka & rec & vbNewLine
             Next
             If p.Range.Words(p.Range.Words.Count) = vbCr Then
                sPoruka = sPoruka & "poslednja rec je vbCr"
             End If
             
             MsgBox sPoruka
        Next
    End With
End Sub