'Primer 25: Etiketiranje aktivnog dokumenta strukturnim xml etiketama
Option Explicit

Option Explicit

Private Sub m_btnEtiketiranje_Click()
   If m_chkDiv.Value Then dodajDivEtiketu
   If m_chkP.Value Then dodajPEtikete
   If m_chkSeg.Value Then dodajSegEtikete
   dodajXmlDeklaraciju
End Sub

Sub dodajDivEtiketu()
    '<div>
   With Selection
       'pomeramo kursor na sam pocetak dokumenta i 1. pasusa
       .Move Unit:=wdStory, Count:=-1
       .TypeText "<div>"
       'kucamo novi red i kreiramo novi (prazan) 1. pasus
       .TypeParagraph
       'kursor je sada na pocetku 2. pasusa
   End With
   
   '</div>
   With Selection
       .Move Unit:=wdStory, Count:=1
       'kursor je sada na kraju poslednjeg pasusa
       'kucamo novi red i kreiramo novi (prazan) poslednji pasus
       .TypeParagraph
       'kursor je sada na pocetku poslednjeg (praznog) pasusa
       .TypeText "</div>"
 
   End With
   
End Sub
'II nacin
Sub dodajDivEtiketu2()
    '<div>
   With Selection
       'pomeramo kursor na sam pocetak dokumenta i 1. pasusa
       .Move Unit:=wdStory, Count:=-1
       'kucamo novi red i kreiramo novi (prazan) 1. pasus
       .TypeParagraph
       'kursor je sada na pocetku 2. pasusa
   End With
   ActiveDocument.Paragraphs(1).Range.Text = "<div>" & vbNewLine
   '</div>
   With Selection
       .Move Unit:=wdStory, Count:=1
       'kucamo novi red i kreiramo novi (prazan) poslednji pasus
       .TypeParagraph
       'kursor je sada na pocetku poslednjeg (praznog) pasusa
   End With
   Dim brPasusa As Integer
   brPasusa = ActiveDocument.Paragraphs.Count
   ActiveDocument.Paragraphs(brPasusa).Range.Text = "</div>"
End Sub

Sub dodajPEtikete()
   'za domaci
End Sub

Sub dodajSegEtikete()
   'za domaci
End Sub


Sub dodajXmlDeklaraciju()
   Dim xmlDeklaracija As String
   Dim sEncoding As String
   sEncoding = odrediKodniRaspored()
   xmlDeklaracija = ""
   
   With Selection
       .Move Unit:=wdStory, Count:=-1
       .TypeParagraph
   End With
   ActiveDocument.Paragraphs(1).Range.Text = xmlDeklaracija & vbNewLine
End Sub

Function odrediKodniRaspored()
    If m_optASCII.Value Then
       odrediKodniRaspored = "us-ascii"
    ElseIf m_optUTF8.Value Then
        odrediKodniRaspored = "utf-8"
    Else
        odrediKodniRaspored = "utf-16"
    End If
End Function