'Primer 14a: Rad sa klasama Paragraphs, Words, Paragraph i Range 
'"Obican" Modul Cas7
Sub pisanje2()
   
   ActiveDocument.Range.Select 'obelezimo sve u dokumentu
   Selection.Delete            'brisemo sve sto smo obelezili
   MsgBox "Obrisali smo sve u dokumentu"
   
   Dim sPoruka As String
   Selection.TypeText "Zdravo, narode" 'kucanje teksta
   Selection.TypeParagraph 'kucanje naslova

   'formatiramo kao bold 3, rec 1. pasusa
   boldNthWord 1, 3

   'koliko ima pasusa u aktivnom dokumentu; vbCrlLf je isto sto i vbNewLine
   sPoruka = "Broj pasusa u aktivnom dokumentu je " & ActiveDocument.Paragraphs.Count & vbCrLf
   
   Dim sPasus1 As String, sPasus2 As String
   'tekst 1. pasusa
   sPasus1 = ActiveDocument.Paragraphs(1).Range.Text
   sPoruka = sPoruka & "Tekst prvog pasusa: " & sPasus1 & vbCrLf

   'duzina teksta prvog pasusa
   sPoruka = sPoruka & "Duzina teksta prvog pasusa: " & Len(sPasus1) & vbCrLf

   'poslednji karakter 1. pasusa i njegov ASCII kod
   Dim sPoslednji1 As String
   sPoslednji1 = Right(sPasus1, 1)
   sPoruka = sPoruka & "Poslednji karakter 1. pasusa je nevidljiv " & sPoslednji1
   sPoruka = sPoruka & "i ima ASCII kod " & Asc(sPoslednji1) & vbCrLf  '

   'tekst 2. pasusa
   sPasus2 = ActiveDocument.Paragraphs(2).Range.Text
   sPoruka = sPoruka & "Tekst drugog pasusa: " & sPasus2 & vbCrLf
   sPoruka = sPoruka & "Duzina teksta drugog pasusa: " & Len(sPasus2) & vbCrLf

   'poslednji karakter 2. pasusa i njegov ASCII kod
   Dim sPoslednji2 As String
   sPoslednji2 = Right(sPasus2, 1)
   sPoruka = sPoruka & "Poslednji karakter 2. pasusa je nevidljiv " & sPoslednji2
   sPoruka = sPoruka & "i ima ASCII kod " & Asc(sPoslednji2) & vbCrLf
   MsgBox sPoruka
End Sub

Sub brisiSve()
    ActiveDocument.Range.Select
    Selection.Delete
End Sub

Sub dodajPasus(tekst As String)
    With Selection
        .TypeText tekst
        .TypeParagraph
    End With
End Sub

'broj reci u n-tom pasusu aktivnog dokumenta
Function brojReciPasusa(n As Integer)
    Dim ukupnoPasusa As Integer
    ukupnoPasusa = ActiveDocument.Paragraphs.Count
    If n < 1 Or n > ukupnoPasusa Then
        MsgBox "Lose zadat redni broj pasusa"
    Else
        MsgBox "Pasus sa rednim brojem " & n & " ima reci: " & ActiveDocument.Paragraphs(n).Range.Words.Count
    End If
End Function
'Domaci: brojKarakteraPasusa

'primeni bold na n-tu rec m-tog pasusa
Sub boldNthWord(m As Integer, n As Integer)
    Dim ukupnoPasusa As Integer
    Dim ukupnoReci As Integer
    ukupnoPasusa = ActiveDocument.Paragraphs.Count
    If m < 1 Or m > ukupnoPasusa Then
        MsgBox "Lose zadat redni broj pasusa"
    End If
    ukupnoReci = ActiveDocument.Paragraphs(m).Range.Words.Count
    If n < 1 Or n > ukupnoReci Then
        MsgBox "Lose zadat redni broj reci"
        Exit Sub
    Else
        ActiveDocument.Paragraphs(m).Range.Words(n).Bold = True
    End If
End Sub