Microsoft Office Word
uređuje Dragan Grbić

Pravila kucanja u Wordu

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.

Moj stari korespondent, kolega Pavle Pejak, piše mi o mukama koje ima u susretu sa velikim brojem maturskih, diplomskih, seminarskih i ostalih radova koje mu klijenti donose na uslužno štampanje. Uočava koliko su korisnici Worda skloni nepoštovanju osnovnih pravila u kucanju. Takođe, pravilno zapaža da gotovo nijedan priručnik za primenu ovog programa ne navodi ta prosta, ali izuzetno važna pravila

Mada vam se može činiti banalnim, a možda ste i sami skloni da pravite neke slične omaške, moram vam reći da kolega Pejak govori o izuzetno važnoj stvari: ukoliko ne poštujete pravila kucanja, prilikom izmena u karakteristikama stranice ili u opisima stilova, možete napraviti totalnu katastrofu od preloma! Najzad, ako ne poštujete pravila kucanja kao pravopisnu normu, čitaoci dokumenta će steći loše mišljenje o vama.

Uz zahvalnost na izuzetno korisnom prilogu, a takođe uz obećanje da će svi moji budući priručnici o Wordu sadržati i ta pravila kao obavezni uvodni deo, prenosim vam ih ovde.

Neka pravila za ispravno kucanje teksta u Wordu

U međuvremenu, kolega Pejak je otišao i korak dalje: sabirajući uzorke grešaka u loše otkucanim tekstovima, napravio je VBA makro koji lovi probleme i ispravlja ih.

Sub DaktiloIspravka()
' Pavle Pejak Novi Sad

Dim strF$(21)
Dim strR$(21)
Dim b As Boolean
Dim i As Byte

Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory, Extend:=wdMove

' Znaci interpunkcije
strF$(0) = " .": strR$(0) = "."
strF$(1) = ".": strR$(1) = ". "
strF$(2) = " :": strR$(2) = ":"
strF$(3) = ":": strR$(3) = ": "
strF$(4) = " ,": strR$(4) = ","
strF$(5) = ",": strR$(5) = ", "
strF$(6) = " ;": strR$(6) = "; "
strF$(7) = ";": strR$(7) = "; "
strF$(8) = " !": strR$(8) = "!"
strF$(9) = "!": strR$(9) = "! "
strF$(10) = " ?": strR$(10) = "?"
strF$(11) = "?": strR$(11) = "? "

' Zagrade
strF$(12) = "( ": strR$(12) = "("
strF$(13) = "(": strR$(13) = " ("
strF$(14) = " )": strR$(14) = ")"
strF$(15) = ")": strR$(15) = ") "

strF$(16) = ") .": strR$(16) = ")."
strF$(17) = ") :": strR$(17) = "):"
strF$(18) = ") ,": strR$(18) = "),"
strF$(19) = ") ;": strR$(19) = ");"
strF$(20) = ") ?": strR$(20) = ")?"
strF$(21) = ") !": strR$(21) = ")!"

For i = 0 To 21
  Selection.Find.Execute findtext:=strF$(i), replacewith:=strR$(i), Replace:=wdReplaceAll
Next i

' Uklanjanje tabulatora na početku i kraju pasusa
strF$(0) = "^p^t": strR$(0) = "^p"
strF$(1) = "^t^p": strR$(1) = "^p"

' Uklanjanje praznih pasusa i razmaka na početku i kraju pasusa
strF$(2) = "^p^w": strR$(2) = "^p"
strF$(3) = "^w^p": strR$(3) = "^p"
strF$(4) = "^p^p": strR$(4) = "^p"

' višestruki razmaci
strF$(5) = "^w": strR$(5) = " "

' nemački navodnici
strF$(6) = "»": strR$(6) = ChrW(8220)
strF$(7) = "«": strR$(7) = ChrW(8222)

For i = 0 To 6
  Selection.Find.Execute findtext:=strF$(i), replacewith:=strR$(i), Replace:=wdReplaceAll
Next i

Selection.HomeKey Unit:=wdStory, Extend:=wdMove

Application.ScreenUpdating = True

End Sub