Viena iš nuodėmių, kurią galite padaryti rašydami kursinį darbą ar baigiamąjį darbą, yra per daug skliaustelinių pastabų puslapyje. Daugelis profesorių vertina tai, kai vietoj to naudojate išnašas. Taip pat įvertinsite makrokomandą „Parthetic_to_footnote“, kuri automatizuoja procesą.
Šiai makrokomandai įrašyti buvo naudojami klavišų paspaudimai, tačiau įterpimo žymeklis turi būti tiksliai nustatytas, kad jis veiktų: spustelėkite įterpimo žymeklį prieš skliaustelinį sakinį, prieš pat tašką, kuriame norite, kad būtų rodoma išnaša. Paveikslėlyje pavaizduota padėtis ir rezultatas paleidus makrokomandą.
Paleisti makrokomandą skliausteliuose_išnaša.
Sub skliaustelis_to_footnote()
'
' skliaustelinis_išnaša Makrokomandas
' Konvertuoti po žymekliu esantį skliaustinį tekstą į išnašą
'
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
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="."
Selection.MoveLeft Vienetas: = wdCharacter, Count: = 1
Su atrankos
Su .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
pabaigoje
.Footnotes.Add klasės: = Selection.Range, Nuoroda:=""
Baigti
pasirinkimu. Įklijuoti
Pabaigos sub
. Šiai makrokomandai sukurti buvo naudojami šie klavišų paspaudimai. Jie gana sudėtingi:
Paspauskite F8, o tada simbolį ( (kairysis skliaustas).
Komanda F8 įjungia išplėstinio pasirinkimo režimą. Paspaudus klavišą, pvz., klavišą (, tekstas pasirenkamas iki to simbolio imtinai).
Esc, →
Pasirinkimas atšaukiamas, o klavišas → perkelia įterpimo žymeklį į skliausteliuose esančio teksto pradžią.
F8, )
Tekstas pasirenkamas iki simbolio ) imtinai.
←
Simbolis ) pašalinamas iš pasirinkimo.
Ctrl+X
Skliausteliuose esantis tekstas iškirptas. Kiti keli klavišų paspaudimai pašalina skliaustus ir nustato išnašos įterpimo žymeklį.
Backspace, Backspace, Backspace, Backspace, . (laikotarpis), ←
Spustelėkite skirtuką Nuorodos ir grupėje Išnašos spustelėkite mygtuką Įterpti išnašą.
Ctrl+V
Tekstas įklijuojamas į išnašą.