Peterはマニュアルを作成し、通常の方法で章の目次を自動生成できます。これにより、読者は目次エントリをクリックして見出しにジャンプできますが、見出しをクリックして目次に戻る方法はありません。読者がこれを行うことができるように、ピーターは見出しに個別にハイパーリンクを適用してから、見苦しいと感じた下線を取り除く必要があります。マニュアルの章には何百もの見出しが含まれている可能性があるため、ハイパーリンクを個別に適用する作業は面倒な場合があります。 Peterは、必要に応じて見出しへのハイパーリンクの追加を自動化する方法があるかどうか疑問に思います。

ピーターのアプローチは、善意ではありますが、完全に不要です。

Wordは、TOCの見出し（Peterが知っている）をクリックしてから、TOCの見出し（Peterが明らかに知らない）に戻る方法を提供します。このタスクを実行するための特定のショートカットは、Alt +左​​矢印です。ショートカットは、目次のハイパーリンクをクリックする前の場所に戻ります。これにより、長い目次に最適です。目次の最初ではなく、元の場所に戻ります。

ショートカットキーは、読者にとって最適なソリューションです。これは、標準のWordインストールでデフォルトで機能します。ただし、必要に応じて、 `link：/ wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [クイックアクセスツールバー]`に[戻る]ボタンを追加して、クリックすると目次の出発点に戻ることができます。次の手順に従ってください：

。 [Wordのオプション]ダイアログボックスを表示します。 （Word 2007では、[Office]ボタンをクリックし、[Wordのオプション]をクリックします。Word2010以降のバージョンでは、リボンの[ファイル]タブを表示して、[オプション]をクリックします。）

。ダイアログボックスの左側で、[カスタマイズ]（Word 2007）または[クイックアクセスツールバー]（最新バージョンのWord）をクリックします。 （図1を参照）

。 [コマンドの選択]ドロップダウンリストを使用して、[すべてのコマンド]を選択します。

。コマンドのリストで、[戻る]コマンドを見つけて選択します。

。 [追加]ボタンをクリックします。 [戻る]コマンドが、ダイアログボックスの右側のクイックアクセスツールバーコマンドのリストに表示されるようになりました。

。上矢印ボタンと下矢印ボタンを使用して、クイックアクセスツールバーコマンド内に[戻る]コマンドを配置します。

。 [OK]をクリックします。

クイックアクセスツールバーに表示される[戻る]コマンドは、Alt +左​​矢印ショートカットとまったく同じ機能を実行します。

それでも見出しにハイパーリンクを追加する場合は、プロセスを自動化する唯一の方法はマクロを使用することです。次のマクロは、ドキュメントの最初の目次の各エントリをステップスルーし、テキストの本文で参照されている見出しを見つけて、目次にハイパーリンクを追加します。

Sub HyperlinkHeadings()

Dim hyp As Hyperlink     Dim toc As TableOfContents     Dim k As Long     Dim bkmk As String     Dim sCode As String     Dim fld As Field     Dim aRange As Range

If ActiveDocument.TablesOfContents.Count = 0 Then         MsgBox "There are no Tables of Contents in document"

Exit Sub     End If

Set toc = ActiveDocument.TablesOfContents(1)



For Each fld In toc.Range.Fields         sCode = fld.Code.Text         If InStr(sCode, "HYPERLINK") > 0 Then             bkmk = Mid(sCode, InStr(sCode, "_"))

bkmk = Left(bkmk, Len(bkmk) - 2)

fld.Select             ActiveDocument.Bookmarks.Add Range:=Selection.Range, _               Name:=bkmk & "R"



Set aRange = ActiveDocument.Bookmarks(bkmk).Range             aRange.Select             With ActiveDocument.Hyperlinks.Add(Anchor:=Selection.Range, _                 Address:="", SubAddress:=bkmk & "R", _                   TextToDisplay:=Selection.Text)

.Range.Select                 Selection.ClearCharacterAllFormatting             End With         End If     Next fld

Options.CtrlClickHyperlinkToOpen = False End Sub

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（13059）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice365のWordに適用されます。