括弧付きのテキストをWord2016の脚注に配置する方法

タームペーパーや論文を書く際に犯すことができる罪の1つは、ページに括弧で囲まれたメモを多すぎることです。代わりに脚注を使用すると、多くの教授がそれを高く評価します。また、プロセスを自動化するparenthetical_to_footnoteマクロも高く評価されます。

このマクロの記録にはキーストロークが使用されましたが、マクロを機能させるには、挿入ポインターを正確に配置する必要があります。脚注を表示するピリオドの直前の括弧内の文の前に挿入ポインターをクリックします。この図は、マクロを実行した後の配置と結果を示しています。

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、Count：= 1

With Selection

With .FootnoteOptions

.Location = wdBottomOfPage

.NumberingRule = wdRestartContinuous

.StartingNumber = 1

.NumberStyle = wdNoteNumberStyleArabic

.LayoutColumns = 0

End With

.Footnotes.Add Range：= Selection.Range、 Reference：= ""

End With

Selection.Paste

End Sub

次のキーストロークを使用して、このマクロを作成しました。それらはかなり複雑です：

F8を押してから（（左括弧）文字
を押します。F8コマンドは拡張選択モードに入ります。（キーなどのキーを押すと、その文字までのテキストが選択されます。

Esc、 →
選択がキャンセルされ、→キーで挿入ポインタが括弧内のテキストの先頭に移動します。

F8、））
文字までのテキストが選択されます。

←
）文字が選択から削除されます。

Ctrl + X
括弧内のテキストが切り取られます。次の数回のキーストロークで括弧を削除し、脚注の挿入ポインタを配置します。

バックスペース、バックスペース、バックスペース、バックスペース、。（期間）、 ←

[参照]タブをクリックし、[脚注]グループで[脚注の挿入]ボタンをクリックします。

Ctrl + V
テキストが脚注に貼り付けられます。