Sub Zamijeni() ' ' Rijeci Macro ' Macro created 12-8-2014 by nn ' Dim Dok As Document Dim Temp As String, ArRijeci() As String, ArRed() As String Dim I As Integer Dim Str As String Set Dok = ActiveDocument Temp = Dok.ActiveWindow.Selection ArRijeci = Split(Temp, vbCr) For I = LBound(ArRijeci) To UBound(ArRijeci) - 1 ArRed = Split(ArRijeci(I), "-") Str = Str & ArRed(1) & "-" & ArRed(0) & vbNewLine Next I Selection.TypeText (Str) End Sub