Jedným z hriechov, ktorých sa môžete dopustiť pri písaní semestrálnej práce alebo dizertačnej práce, je umiestniť na stránku príliš veľa poznámok v zátvorkách. Mnohí profesori oceňujú, keď namiesto toho používate poznámky pod čiarou. Určite oceníte aj makro parenthetical_to_footnote, ktoré proces automatizuje.
Na zaznamenanie tohto makra sa použili klávesové skratky, ale kurzor musí byť presne umiestnený, aby to fungovalo: Kliknite na kurzor pred vetou v zátvorkách, tesne pred bodkou, kde sa má zobraziť poznámka pod čiarou. Obrázok znázorňuje umiestnenie a výsledok po spustení makra.
Spustenie makra parenthetical_to-footnote.
Sub parenthetical_to_footnote()
'
' parenthetical_to_footnote Macro
' Previesť text v zátvorkách za kurzorom na poznámku pod čiarou
'
Selection.Extend
Selection.Extend Character:="("
Selection.EscapeKey
Selection.MoveRight Jednotka:=wdCharacter, Count:=1
Selection.Extend
Selection.Extend Character:=")"
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Jednotka:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="."
Selection.MoveLeft Unit: = wdCharacter, Count: = 1
s výberom
S .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End With
.Footnotes.Add Rozsah: = Selection.Range, Reference:=""
End With
Selection.Paste
End Sub
Na vytvorenie tohto makra boli použité nasledujúce stlačenia klávesov. Sú dosť zložité:
Stlačte F8 a potom znak ( (ľavá zátvorka).
Príkaz F8 vstúpi do režimu rozšíreného výberu. Keď stlačíte kláves, napríklad kláves (, text sa vyberie až po tento znak vrátane.
Esc, →
Výber sa zruší a kláves → presunie kurzor na začiatok textu v zátvorkách.
F8, )
Text sa vyberá až po znak ) vrátane.
←
Znak ) sa odstráni z výberu.
Ctrl+X
Text v zátvorkách sa vystrihne. Nasledujúcich niekoľko stlačení kláves odstráni zátvorky a umiestni kurzor na poznámku pod čiarou.
Backspace, Backspace, Backspace, Backspace, . (bodka), ←
Kliknite na kartu Referencie a v skupine Poznámky pod čiarou kliknite na tlačidlo Vložiť poznámku pod čiarou.
Ctrl+V
Text sa vloží do poznámky pod čiarou.