一部の書式設定の目的で、実際の脚注参照番号と脚注のテキストの間に、Wordで脚注にタブ文字を配置する必要がある場合があります。ただし、Wordではこれを自動的に行うことはできません。実際、Wordでは、番号付きリストの場合のように、脚注参照番号と脚注テキストの間に表示する文字を指定することはできません。代わりに、Wordはこれら2つの要素の間にスペースを置きます。

脚注にタブ区切り文字が含まれていることを確認するには、いくつかの方法があります。さまざまな方法について簡単に説明します。ただし、すべてのメソッドは、タブを適切に処理するように脚注テキストスタイルが設定されていることを前提としています。

脚注を挿入するたびに、Wordは、組み込みの脚注テキストスタイルを使用するように脚注自体をフォーマットします。この組み込みスタイルに変更を加えるだけで、脚注の表示方法を制御できます。たとえば、脚注の参照番号と脚注のテキストの先頭の間にタブ文字が必要な場合は、脚注のテキストスタイルでタブストップを設定して、Wordがタブ文字を取得するとどうするかを認識できるようにする必要があります。脚注。正確にスタイルを変更する方法は、_WordTips._の他の問題でカバーされています。

タブを追加するための最初の潜在的な解決策は、Wordの検索と置換機能を使用することです。次の手順に従って、すべての脚注に必要なタブ文字が含まれていることを確認できます。

。 Ctrl + Hを押します。 Wordは、[検索と置換]ダイアログボックスの[置換]タブを表示します。

。可能な場合は、[その他]ボタンをクリックします。 （図1を参照）

。 [ワイルドカードを使用する]チェックボックスがオンになっていることを確認します。

。 [検索する文字列]ボックスに、引用符なしで「（^ 2）」と入力します。最後の括弧の後にスペースがあることに注意してください。

。カーソルを[検索]ボックスに置いたまま、[フォーマット]ボタンをクリックして、[スタイル]を選択します。 Wordは、[スタイルの検索]ダイアログボックスを表示します。

。表示されるスタイルのリストで、脚注テキストスタイルを選択し、[OK]をクリックします。

。 [置換]ボックスに、引用符なしで「\ 1 ^ t」と入力します。

。 [すべて置換]を押してから、[検索と置換]ダイアログボックスを閉じます。

完了すると、すべての脚注に、脚注参照番号と脚注テキストの先頭の間に必要なタブが表示されます。これは、脚注または文末脚注のリファレンスマークを検索する検索で^ 2ワイルドカードを使用しているために機能します。 ^ 2を囲む括弧により、そのワイルドカードはグループとして扱われます。

基本的に、[検索する文字列]ボックスは、すべての脚注または文末脚注のリファレンスマークと、それに続く脚注テキストスタイルでフォーマットされた段落内のスペースを検索します。この組み合わせが発生する唯一の場所は、脚注自体です。文末脚注は文末脚注スタイルであり、ドキュメントの本文は脚注テキストスタイルであってはなりません。

[置換]ボックスで、文字\ 1は、[検索する文字列]ボックスの括弧の間にある最初の式を置き換えます。私たちの場合、それは脚注の参照番号です。 ^ tはタブを挿入します。

別のアプローチは、脚注の目的の場所に必要なタブを配置するマクロを使用することです。次のマクロはまさにそれを行います：

Sub TabFootnotes()

For s = 1 To ActiveDocument.Footnotes.Count         ActiveDocument.Footnotes(s).Range.Select         With Selection             .Collapse Direction:=wdCollapseStart             .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend             .TypeText Text:=vbTab         End With     Next End Sub

このマクロは、各脚注をステップスルーし、脚注のテキストを選択し、テキストの先頭のスペースを削除してから、タブを入力します。実際には、マクロはテキストの先頭の文字がスペースであることを確認しません。これは、このマクロの前回の呼び出しからのタブである可能性もあります。ただし、既存のタブを新しいタブに置き換えると問題なく機能し、目的の結果が得られるため、問題ありません。

脚注の参照番号の後にタブがあることを常に確認したい場合に適した最終的なアプローチがあります。このアプローチでは、脚注を挿入するためのWordの組み込みコマンドを置き換える必要があります。

Sub InsertFootnote()

If Selection.StoryType <> wdFootnotesStory Then         Dim dlg As Dialog         Set dlg = Dialogs(wdDialogInsertFootnote)

If dlg.Display = -1 Then             dlg.Execute             Selection.TypeBackspace             Selection.TypeText vbTab         End If     End If End Sub

このマクロは、最初に、ドキュメントの脚注セクションにいるときに脚注を挿入しようとしていないことを確認します。次に、通常の脚注と文末脚注ダイアログボックスが表示されます。ダイアログボックスで[OK]をクリックすると、マクロはタブを挿入し、脚注のテキストを入力するのを待ちます。このマクロは、文末脚注の参照と文末脚注のテキストの間にタブ文字も挿入します。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（9475）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

link脚注にタブを自動的に追加する。