Microsoft Office Word
uređuje Dragan Grbić

Precrtavanje teksta

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Ako želite da istaknete popravljeni tekst, možete zadržati staru verziju, dodeljujući fontu oblik precrtanog. Ali, možete izvesti i zanimljivije efekte, samo ako znate kako.

Uobičajeno precrtavanje je prost postupak: obeležite tekst koji želite da vidite kao precrtan, pozovite dijalog za uređenje fonta (Ctrl+D), pa uključite polje za potvrdu Strikethrough (Precrtani tekst). Ovo ste možda i viđali ranije: efekat koji postižete je očigledan, jer tako naglašavate promenu, održavajući prethodnu verziju teksta očiglednom.

Međutim, ponekad ima smisla da veoma naglasite precrtavanje: urđenje fonta vam ne daje više od precrtavanja duplom linijom. Šta ako biste, recimo, želeli da upotrebite klasični XXXX, nešto nalik uobičajenom postupku na pisaćoj mašini? Način postoji, a svodi se na upotrebu polja EQ praćenog prekidačem \o (overtype). Pritom ćemo iskoristiti mogućnost naknadnog kreiranja polja nad već upisanim tekstom.

Obeležite tekst koji želite da precrtate (za priču, to je tekst precrtano), pa pritisnite prečicu Ctrl+F9; Word odmah ubacuje okolne vitičaste zagrade. Preuredite unutrašnji sadržaj novog polja tako da izgleda tačno ovako:

eq \o(precrtano;xxxxxxxxx)

Da ne bi bilo nejasnoća, zgotovljeno polje će izgledati ovako:

{ eq \o(precrtano;xxxxxxxxx) }

NAPOMENA: znak za razdvajanje argumenata zavisi od lokalnih podešavanja. Ako na vašem računaru dominiraju engleska podešavanja (decimalna tačka umesto zareza), tada umesto znaka tačka-zarez koristite prosti zarez.

Naravno, u praksi će reč precrtano biti nešto drugo; dodajte dovoljno znakova x, zasad procenjujući koliko bi trebalo da ih bude (ocenite po širini); kasnije ćete ispraviti to, ako treba.

Kada završite unos, pritisnite Shift+F9; time ćete osvežiti polje i učiniti ga vidljivim. Ukoliko je potrebno da prepravite tačan izgled rezultata, pritisnite Alt+F9 da učinite kodni oblik polja, uđite u njega i prepravite sadržaj, pa opet završite prečicom Shift+F9.

Postoji izvestan nedostatak ove tehnike: prikladna je samo za kratki tekst. Ukoliko želite da precrtate veću količinu teksta, određivanje broja znakova za precrtavanje će biti vrlo zametan posao. Sledeći makro će izvesti i više od običnog precrtavanja: obležićete tekst, pa pozvati makro koji će precrtati selekciju crvenim znakom, preskačući razmake. Znak x možete zameniti nekim drugim, ako to želite.

Sub Precrtaj()
Dim i As Integer
MojTekst = Selection.Text

znak = InputBox("Kojim znakom precrtavate tekst?", _
       "Izbor znaka za precrtavanje", "x")

Application.ScreenUpdating = False

' provera opsega koji će biti precrtan
If Selection.Characters.Count = 1 Then
  Selection.MoveRight Unit:=wdCharacter, _
     Count:=1, Extend:=wdExtend
  If Selection.Characters.Count = 2 Then
    Selection.MoveLeft Unit:=wdCharacter, _
       Count:=2, Extend:=wdExtend
  Else
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
  End If
Else
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
End If

' petlja koja prolazi kroz tekst
For i = 1 To Len(MojTekst)
  Selection.MoveRight Unit:=wdCharacter, _
     Count:=1, Extend:=wdExtend
  ' preskakanje razmaka i kraja pasusa
  If Selection.Text = Chr(13) Or Selection.Text = " " Then
    While Selection.Text = Chr(13) Or Selection.Text = " "
      If i = Len(MojTekst) Then
        Selection.MoveRight Unit:=wdCharacter, Count:=1
         Exit Sub
      Else
         i = i + 1
         Selection.MoveRight Unit:=wdCharacter, _
            Count:=1
         Selection.MoveRight Unit:=wdCharacter, _
            Count:=1, Extend:=wdExtend
      End If
    Wend
  End If
' end paragraph marker & space handler

  With Selection
    .Fields.Add Range:=Selection.Range, _
        Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    .TypeText Text:="eq \o("
    .MoveRight Unit:=wdCharacter, Count:=1
    .TypeText Text:=";" & znak & ")"
    ' ako koristite US podešavanja,
    ' onda prethodni red treba da glasi
    ' TypeText Text:="," & znak & ")"
    .Delete Unit:=wdCharacter, Count:=1

     ' promena u crveno
    .MoveLeft Unit:=wdCharacter, Count:=1
    .MoveLeft Unit:=wdCharacter, Count:=1, _
       Extend:=wdExtend
    .Font.Color = wdColorRed
    .Fields.ToggleShowCodes
    .MoveRight Unit:=wdCharacter, Count:=1
  End With
Next i

Application.ScreenUpdating = True

End Sub

Tehnika je prikladna za velike količine teksta, mada postoji izvesno kvarenje izgleda (međuslovno rastojanje se kvari). To je ipak fer razmena spram činjenice da ne postoji drugi način da ovako nešto izvedete u normalnim okolnostima.