Word – Zamena funkcija tastera (II deo)

Kada ste kreirali ovaj makro, potrebno je da ga pokrenemo kako bismo [Tab] dodelili tasteru sa ลกifrom 106 (taster [*]). Ova ลกifra odgovara samo tasteru zvezdici na numeriฤkoj tastaturi. Ovo znaฤi da ovim tasterom viลกe neฤ‡ete moฤ‡i da unosite znak zvezdicu, ali vam i dalje ostaje onaj koji se dobija kombinacijom [Shift+8]. U stvari, i dalje moลพete dobiti zvezdicu pritiskom tastera na numeriฤkoj tastaturi, ali morate drลพati istovremeno pritisnut i taster [Shift].

Makroe moลพete pokretati i bez potrebe snimanja, pritiskom na dugme „Start“, koje se nalazi na paleti alatki. Kada ga pokrenete, istestirajte taster zvezdicu i uverite se da sada ima funkciju tastera [Tab]. Potom moลพete zatvoriti makro bez brige o snimanju, ali tada kod snimanja dokumenta morate koristiti komandu menija „File> Save All“, ลกto ฤ‡e makro smestiti u „Normal“ ลกablon. Ako ikada bude bilo potrebe za ukidanjem ovog makroa, biฤ‡e potrebno da pokrenete drugi makro. Makro za resetovanje promene tastera identiฤan je prvom, osim ลกto ฤ‡ete zameniti „Add“ sa „.Remove“.

Istu stvar moลพete uraditi i u Word-u 97 koristeฤ‡i gotovo isti postupak. Za snimanje makroa izaberite meni „Tools> Macro> Record New Macro“. Kasnije, za prekid snimanja izaberite „Tools> Macro> Stop Recording“. Za ruฤno kreiranje makroa, izaberite meni „Tools> Macro> Macros“, unesite naziv, i kliknite „Create“. U Word-u 97, program ฤ‡e za vas ubaciti „Sub“ i „End Sub“, s tim ลกto ฤ‡e deklaracija „Sub“ ukljuฤivati i naziv makroa. Ako ste makro npr. nazvali „PokreniTab“, gornja deklaracija ฤ‡e biti „Sub PokreniTab()“. Dodatno, Word ฤ‡e dodati i nekoliko linija komentara, ukljuฤujuฤ‡i tu datum kada je kreiran makro i ko ga je kreirao. Meฤ‘utim, najveฤ‡a razlika je u sintaksi makro jezika. U Word-u 97 komanda za unos tabulatora u prvom makrou biฤ‡e:


Selection.TypeText Text:=vbTab

Slede dve linije koda koje funkciju tabulatora dodeljuju tasteru zvezdici:


{prva linija}
CustomizationContext =NormalTemplate
{druga linija, sve smestite u jednu liniju}
KeyBindings.Add KeyCode:=BuildKeyCode(106),
KeyCategory:=wdKeyCategoryMacro, Command:=“Tab“

I na kraju dve linije koda za resetovanje ove funkcije:


CustomizationContext =NormalTemplate
FindKey(BuildKeyCode (arg1:=106)).Clear

Umesto koda (ลกifre) – 106 za taster zvezdicu, moลพete upotrebiti ลกifru vbKeyMultiply u oba makroa.

Pratite Krstaricu na www.krstarica.com