Peter écrit des manuels et peut générer automatiquement la table des matières d’un chapitre de la manière habituelle. Cela permet aux lecteurs de cliquer sur une entrée de la table des matières et d’accéder à l’en-tête, mais il n’y a aucun moyen de cliquer sur l’en-tête et de revenir à la table des matières. Pour que les lecteurs puissent le faire, Peter doit appliquer individuellement un lien hypertexte à l’en-tête, puis se débarrasser du soulignement, qu’il trouve inesthétique. Le chapitre d’un manuel peut contenir des centaines de titres, donc la tâche d’appliquer les hyperliens individuellement peut être pénible. Peter se demande s’il existe un moyen d’automatiser l’ajout d’hyperliens aux titres selon ses besoins.

L’approche de Peter, bien que bien intentionnée, est complètement inutile.

Word fournit un moyen de cliquer sur un en-tête dans la table des matières (ce que Peter connaît), puis de revenir à cet en-tête dans la table des matières (que Peter ne connaît apparemment pas). Le raccourci spécifique pour accomplir cette tâche est Alt + Flèche gauche. Le raccourci revient à l’endroit où vous étiez avant de cliquer sur le lien hypertexte dans la table des matières, ce qui le rend idéal pour les longues tables des matières – vous êtes renvoyé exactement là où vous étiez plutôt qu’au début de la table des matières.

La touche de raccourci est la meilleure solution pour les lecteurs; il fonctionne par défaut sur une installation Word standard. Si vous le souhaitez, cependant, vous pouvez ajouter un bouton Retour à votre lien: / wordribbon-Adding_Tools_to_the_Quick_Access_Toolbar [Quick Access Toolbar] qui pourrait être cliqué pour revenir au point de départ de la table des matières. Suivez ces étapes:

  1. Affichez la boîte de dialogue Options Word. (Dans Word 2007, cliquez sur le bouton Office, puis sur Options Word. Dans Word 2010 ou une version ultérieure, affichez l’onglet Fichier du ruban, puis cliquez sur Options.)

  2. Sur le côté gauche de la boîte de dialogue, cliquez sur Personnaliser (Word 2007) ou sur la barre d’outils Accès rapide (versions ultérieures de Word). (Voir la figure 1.)

  3. À l’aide de la liste déroulante Choisir les commandes dans, choisissez Toutes les commandes.

  4. Dans la liste des commandes, recherchez et sélectionnez la commande Retour.

  5. Cliquez sur le bouton Ajouter. La commande Retour apparaît maintenant sur le côté droit de la boîte de dialogue, dans la liste des commandes de la barre d’outils Accès rapide.

  6. Utilisez les flèches Haut et Bas pour situer la commande Retour dans les commandes de la barre d’outils Accès rapide.

  7. Cliquez sur OK.

La commande Retour, qui apparaît maintenant dans la barre d’outils d’accès rapide, exécute exactement la même fonction que le raccourci Alt + Flèche gauche.

Si vous souhaitez toujours ajouter des liens hypertexte aux en-têtes, le seul moyen d’automatiser le processus est d’utiliser une macro. La macro suivante parcourt chaque entrée de la première table des matières du document, trouve l’en-tête référencé dans le corps principal du texte, puis ajoute un lien hypertexte vers la table des matières.

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

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13059) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.