<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Sub SamoTekst()
'
Dim Dok As Document
Dim Temp As String, ArRijeci() As String
Dim I As Integer, N As Integer
Dim Str As String
Dim Reper As Boolean, Poz As Integer

Reper = False
Set Dok = ActiveDocument
Temp = Dok.ActiveWindow.Selection
ArRijeci = Split(Temp, vbCr)
For I = LBound(ArRijeci) To UBound(ArRijeci) - 1
    If Reper = True Then
    Poz = InStr(1, ArRijeci(I), ">")
        If Poz > 0 Then
        ArRijeci(I) = Mid(ArRijeci(I), Poz + 1)
        Poz = InStr(1, ArRijeci(I), "<")
            If Poz > 0 Then
            ArRijeci(I) = Left(ArRijeci(I), Poz - 1)
            End If
        End If
        If ArRijeci(I) = "" Then
           Reper = False
        End If
    Str = Str