Predmet:Re: Zamena reci u Word-u?
Evo zamijeni ovaj kod sa starim.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.