Centar za edukaciju-BiH


Stranice (1):1

#1 06.08.2014 23:00
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Zamena reci u Word-u?
Da li moze nekim kodom da se menja raspored reci ako se napravi neki mini recnik? Tipa: ako imamo na listi recimo,
home - kuca
there - tamo
da kod sve reci sa lista zameni,
kuca - home
tamo - there
Hvala puno unapred.
↑  ↓

#2 07.08.2014 11:19
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zamena reci u Word-u?
Ja te nisam bas najbolje razumio ali da pretpostavim da se radi o onom pitanju prie ovoga gdje imas spisak nekih rijeci.
E sad dali taj spisak treba pretumbati obratno.
Mozda da zakacis neki mali primjer.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 12.08.2014 16:59
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Zamena reci u Word-u?
Pa kad napravim spisak reci sta koja sta znaci, treba mi kod kad ih selektujem da zamene mesta.
↑  ↓

#4 12.08.2014 21:17
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Zamena reci u Word-u?
Evo ti kod.
Postupak postavljenja je isti kao u predhodnom tvom postu.
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. ArRed = Split(ArRijeci(I), "-")
  16. Str = Str & ArRed(1) & "-" & ArRed(0) & vbNewLine
  17. Next I
  18. Selection.TypeText (Str)
  19. End Sub

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

#5 06.10.2014 23:02
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Zamena reci u Word-u?
Sta treba da prepravim u kodu da bi menjao selektirane reci? Jer ako su poredjane po azbucnom redu i naglasene slovom kod ne radi. Tipa ako stoji A pa ispod njega reci na A, on izbacuje gresku jer prvo A nema crticu. Trebalo bi da menja samo reci koje imaju crticu a one koje nemaju, ostavi onakve kakve jesu. Hvala puno unapred.
↑  ↓

#6 07.10.2014 12:01
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
↑  ↓

#7 08.10.2014 20:54
White Man Van mreze
Clan
Registrovan od:11.03.2011
Postovi:341


Predmet:Re: Zamena reci u Word-u?
Radi, hvala.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 5: 25 pm.