En av syndene du kan begå når du skriver en semesteroppgave eller oppgave er å sette for mange notater i parentes på en side. Mange professorer setter pris på når man i stedet bruker fotnoter. Du vil også sette pris på parenthetical_to_footnote-makroen, som automatiserer prosessen.
Tastetrykk ble brukt for å registrere denne makroen, men innsettingspekeren må være nøyaktig plassert for at den skal fungere: Klikk på innsettingspekeren før parentessetningen, rett før punktum der du vil at fotnoten skal vises. Figuren illustrerer plasseringen og resultatet etter å ha kjørt makroen.
Kjøre makroen parentetical_to-footnote.
Sub parenthetical_to_footnote()
'
' parenthetical_to_footnote Macro
' Konverter parentetisk tekst etter markøren til en fotnote
'
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 Enhet: = wdCharacter, Count: = 1
Med Utvalg
Med .FootnoteOptions
.Beliggenheten = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End Med
.Footnotes.Add Range: = Selection.Range, Reference:=""
End With
Selection. Paste
End Sub
Følgende tastetrykk ble brukt til å lage denne makroen. De er ganske komplekse:
Trykk F8 og deretter ( (venstre parentes) tegnet.
F8-kommandoen går inn i utvidet valgmodus. Når du trykker på en tast, for eksempel (-tasten, velges tekst opp til og med det tegnet.
Esc, →
Valg avbrytes, og →-tasten flytter innsettingspekeren til starten av parentesteksten.
F8, )
Tekst velges til og med tegnet ).
←
Tegnet ) fjernes fra utvalget.
Ctrl+X
Den parentetiske teksten kuttes. De neste tastetrykkene fjerner parentesen og plasser innsettingspekeren for fotnoten.
Backspace, Backspace, Backspace, Backspace, . (punktum), ←
Klikk på Referanser-fanen, og klikk på Sett inn fotnote-knappen i Fotnoter-gruppen.
Ctrl+V
Teksten limes inn i fotnoten.