Një nga mëkatet që mund të bëni duke shkruar një punim terminor ose tezë është vendosja e shumë shënimeve në kllapa në një faqe. Shumë profesorë e vlerësojnë atë kur në vend të kësaj përdorni fusnota. Ju gjithashtu do të vlerësoni makronë parantetike_to_footnote, e cila automatizon procesin.
Për të regjistruar këtë makro janë përdorur tastierë, por treguesi i futjes duhet të jetë i pozicionuar saktësisht që ajo të funksionojë: Klikoni treguesin e futjes përpara fjalisë kllapa, pak përpara periudhës ku dëshironi të shfaqet fusnota. Figura ilustron pozicionimin dhe rezultatin pas ekzekutimit të makros.
Ekzekutimi i makros parantetike_to-fusnote.
Sub-parenthetical_to_footnote()
'
'parenthetical_to_footnote Makro
' Konverto tekstin kllapa pas kursorit në një fusnotë
'
Selection.Extend
Selection.Extend Character:="("
Selection.EscapeKey
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Extend
Selection.Extend Character:=")"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Zgjedhja.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="."
Selection.MoveLeft Unit: = wdCharacter, Count: = 1
me zgjedhjen
Me .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End Me
.Footnotes.Add Varg: = Selection.Range, Referenca:=""
Fund Me
Selection. Paste
End Sub
Për të krijuar këtë makro u përdorën goditjet e mëposhtme të tasteve. Ato janë mjaft komplekse:
Shtypni F8 dhe më pas karakterin ( (kllapa majtas).
Komanda F8 hyn në modalitetin e përzgjedhjes së zgjeruar. Kur shtypni një tast, siç është tasti (, teksti zgjidhet deri dhe duke përfshirë atë karakter.
Esc, →
Zgjedhja anulohet dhe tasti → e zhvendos treguesin e futjes në fillim të tekstit në kllapë.
F8, )
Teksti zgjidhet deri në dhe duke përfshirë karakterin ).
←
Karakteri ) hiqet nga përzgjedhja.
Ctrl+X
Teksti në kllapa pritet. Shtypjet e tastave të ardhshme heqin kllapat dhe vendosin treguesin e futjes për fusnotën.
Backspace, Backspace, Backspace, Backspace, . (periudha), ←
Klikoni skedën Referencat dhe, në grupin Fusnotat, klikoni butonin Fut fusnotën.
Ctrl+V
Teksti ngjitet në fusnotë.