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 & ArRijeci(I) & " " End If If InStr(1, ArRijeci(I), "-->") > 0 Then Reper = True End If Next I Selection.TypeText (Str) End Sub