Microsoft Office Word
uređuje Dragan Grbić

Zamena mesta rečima

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Nekada smo podešavali svoje ASCII editore do krajnjih granica, a danas nam je mrsko da tako podesimo i Word. Uposlite VBA: dodajte novu komandu Wordu, podesite prečicu i - napred!

Ko zna koliko puta mi je zatrebalo da zamenim mesta dvema rečima u tekstu, i obećao bih sebi "samo da završim ovaj tekst, odmah ću napraviti makro", ali to nikako da učinim... I konačno sam u jednoj mailing listi video gotovo rešenje, koje sam bez stida odmah postavio u standardni skup svojih makroa. Evo ga:

Sub FlipWords()

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
Selection.MoveLeft Unit:=wdWord, Count:=1

End Sub

E, sad, ono što je jasno: ovaj makro je prosto snimljen i na njemu nisu rađene nikakve dodatne intervencije. To samo govori u prilog početnoj tezi: samo malo truda, samo malo uloženog vremena - kasnije se vrati višestruko.

Nisam bio lenj, pa sam kasnije malo razudio ovu operaciju na tri makroa, u zavinosti gde želim da se nađe kurzor nakon zamene reči. To ima smisla, jer ako npr. neku reč hoću da gurnem za tri mesta ulevo, najbolje je da se posle izmene mesta reči kurzor odmah nađe levo od (nove) leve reči. Usput sam definisao i tasterske prečice, pa ova trojka komandi sad izgleda ovako:

Sub ZameniReci()
'
' posle zamene, kurzor ostaje između reči
' prečica CTRL+ALT+DOWN

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
Selection.MoveLeft Unit:=wdWord, Count:=1

End Sub


Sub ZameniReciLevo()
'
' posle zamene, kurzor ostaje levo od zamenjenog para
' prečica CTRL+ALT+LEFT

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste
Selection.MoveLeft Unit:=wdWord, Count:=2

End Sub


Sub ZameniReciDesno()
'
' posle zamene, kurzor ostaje levo od zamenjenog para
' prečica CTRL+ALT+RIGHT

Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdWord, Count:=1
Selection.Paste

End Sub