Един от греховете, които можете да извършите, когато напишете курсова работа или теза, е поставянето на твърде много бележки в скоби на страница. Много професори оценяват това, когато вместо това използвате бележки под линия. Ще оцените и макроса parenthetical_to_footnote, който автоматизира процеса.
За запис на този макрос са използвани натискания на клавиши, но показалецът за вмъкване трябва да бъде точно позициониран, за да работи: Щракнете върху показалеца за вмъкване преди изречението в скоби, точно преди точката, в която искате да се появи бележката под линия. Фигурата илюстрира позиционирането и резултата след стартиране на макроса.
Изпълнение на макроса за скоби към бележка под линия.
Sub parenthetical_to_footnote()
'
' parenthetical_to_footnote Macro
' Преобразуване на текст в скоби, следващ курсора в бележка под линия
'
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 Unit: = wdCharacter, граф: = 1
С Selection
С .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
.LayoutColumns = 0
End С
.Footnotes.Add Обхват: = Selection.Range, Справка:=""
Край с
избор.
Поставяне Край на подзаписа
Следните натискания на клавиши бяха използвани за създаване на този макрос. Те са доста сложни:
Натиснете F8 и след това символа ( (лява скоба).
Командата F8 влиза в режим на разширен избор. Когато натиснете клавиш, като например клавиша (, текстът се избира до този знак включително.
Esc, →
Изборът се отменя и клавишът → премества показалеца за вмъкване в началото на текста в скоби.
F8, )
Текстът се избира до и включително символа ).
←
Знакът ) се премахва от селекцията.
Ctrl+X
Текстът в скоби се изрязва. Следващите няколко натискания на клавиши премахват скобите и позиционират показалеца за вмъкване за бележката под линия.
Backspace, Backspace, Backspace, Backspace, . (точка), ←
Щракнете върху раздела Препратки и в групата Бележки под линия щракнете върху бутона Вмъкване на бележка под линия.
Ctrl+V
Текстът се поставя в бележката под линия.