Prikazi cijelu temu 07.10.2014 12:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Zamena reci u Word-u?
Evo zamijeni ovaj kod sa starim.
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub Zamijeni()
  2. '
  3. ' Rijeci Macro
  4. ' Macro created 12-8-2014 by nn
  5. '
  6. Dim Dok As Document
  7. Dim Temp As String, ArRijeci() As String, ArRed() As String
  8. Dim I As Integer
  9. Dim Str As String
  10.  
  11. Set Dok = ActiveDocument
  12. Temp = Dok.ActiveWindow.Selection
  13. ArRijeci = Split(Temp, vbCr)
  14. For I = LBound(ArRijeci) To UBound(ArRijeci) - 1
  15.     If InStr(1, ArRijeci(I), "-") = 0 Then
  16.     Str = Str & ArRijeci(I) & vbNewLine
  17.     Else
  18.     ArRed = Split(ArRijeci(I), "-")
  19.     Str = Str & ArRed(1) & "-" & ArRed(0) & vbNewLine
  20.     End If
  21. Next I
  22. Selection.TypeText (Str)
  23. End Sub

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.