Sub SamoTekst()
'
Dim Dok As Document
Dim Temp As String, ArRijeci() As String
Dim I As Integer
Dim Str As String
Dim Reper As Boolean


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