Dennis a une petite macro qui fait un excellent travail de suppression des hyperliens d’un document. Il vient de recevoir un nouveau document avec lequel travailler, et il contient plusieurs hyperliens dans les notes de bas de page. La macro ne supprime pas ces hyperliens, et les supprimer manuellement est une corvée énorme. Dennis se demande s’il existe un moyen de supprimer d’un seul coup les hyperliens dans les notes de bas de page.

En fait, il y a un moyen. Vous pouvez le faire manuellement, si vous le souhaitez, en suivant ces étapes:

  1. Placez le pointeur d’insertion dans le corps d’une note de bas de page. (Peu importe la note de bas de page.)

  2. Appuyez sur Ctrl + A. Ceci sélectionne toutes les notes de bas de page. (Si tout le texte de votre document est sélectionné, cela signifie que vous n’avez pas effectué l’étape 1.)

  3. Appuyez sur Ctrl + Maj + F9. Cela convertit les hyperliens du texte sélectionné (les notes de bas de page) en texte normal.

Vous devez noter que ces étapes convertissent en fait tous les champs du texte sélectionné en texte normal. Puisque les liens hypertextes sont implémentés via l’utilisation de champs, ils sont convertis. Mais il en va de même pour tous les autres champs qui peuvent figurer dans vos notes de bas de page. Si vous ne souhaitez pas modifier d’autres champs, ou si vous avez besoin de traiter un peu les hyperliens dans les notes de bas de page, vous pouvez utiliser une macro à la place.

La macro suivante supprimera les liens hypertexte dans les notes de bas de page uniquement:

Sub RemoveFNH()

Dim h As Hyperlink

With ActiveDocument         If .Footnotes.Count >= 1 Then             With .StoryRanges(wdFootnotesStory)

For Each h In .Hyperlinks                     h.Delete                 Next h             End With         End If     End With End Sub

Notez que la partie importante de la macro est la spécification de travailler avec la plage d’histoires wdFootnotesStory. Les documents Word peuvent être constitués de plusieurs plages d’articles, chacune représentant un élément différent, tel que des en-têtes, des pieds de page, des notes de bas de page, etc. Si vous souhaitez supprimer les hyperliens de toutes les parties de votre document (c’est-à-dire de toutes les peut utiliser une macro encore plus courte:

Sub RemoveAllHyperlinks()

Dim r As Range     Dim h As Hyperlink

For Each r In ActiveDocument.StoryRanges         For Each h In rng.Hyperlinks             h.Delete         Next h     Next r End Sub

La macro parcourt chacune des plages d’articles dans le document et, s’il existe des hyperliens dans cette plage d’articles, supprime chacune d’elles.

_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 (4636) s’applique à Microsoft Word 2007, 2010, 2013 et 2016.