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