Jedním z hříchů, kterých se můžete dopustit při psaní semestrální práce nebo diplomové práce, je umístění příliš mnoha poznámek v závorkách na stránku. Mnoho profesorů oceňuje, když místo toho používáte poznámky pod čarou. Oceníte také makro parenthetical_to_footnote, které proces automatizuje.
K záznamu tohoto makra byly použity klávesové zkratky, ale aby fungovalo, musí být kurzor přesně umístěn: Klepněte na kurzor před větu v závorce těsně před tečku, kde se má zobrazit poznámka pod čarou. Obrázek znázorňuje umístění a výsledek po spuštění makra.
Spuštění makra parenthetical_to-footnote.
Sub parenthetical_to_footnote()
'
' parenthetical_to_footnote Macro
' Převést text v závorkách za kurzorem na poznámku pod čarou
'
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ýběrem
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
K vytvoření tohoto makra byly použity následující klávesy. Jsou docela složité:
Stiskněte F8 a poté znak ( (levá závorka).
Příkaz F8 vstoupí do režimu rozšířeného výběru. Když stisknete klávesu, jako je klávesa (, vybere se text až do tohoto znaku včetně.
Esc, →
Výběr se zruší a klávesa → přesune kurzor na začátek textu v závorce.
F8, )
Text je vybrán až do znaku ) včetně.
←
Znak ) je odstraněn z výběru.
Ctrl+X
Text v závorkách se vyjme. Dalších několik úhozů odstraníte závorku a umístíte kurzor na poznámku pod čarou.
Backspace, Backspace, Backspace, Backspace, . (tečka), ←
Klepněte na kartu Reference a ve skupině Poznámky pod čarou klepněte na tlačítko Vložit poznámku pod čarou.
Ctrl+V
Text se vloží do poznámky pod čarou.