Stephen a un grand document (plus de 300 pages) qui comprend un grand nombre d’hyperliens dans le texte principal. Il y a aussi des notes de bas de page dans le document. Chacun des hyperliens doit être converti en une note de bas de page, ce qui augmentera (bien sûr) le nombre de notes de bas de page dans le document.

L’augmentation n’est pas un problème. Le problème est de trouver un moyen rapide de convertir tous ces hyperliens en notes de bas de page. Stephen se demande si cela pourrait être fait en utilisant une macro.

Cela peut, en effet, être fait avec une macro. En fait, la macro peut être plus simple que vous ne l’imaginez. Voici un exemple:

Sub LinksToFootnotes()

Dim hLink As Hyperlink     Dim rTemp As Range     Dim J As Integer

For Each hLink In ActiveDocument.Hyperlinks         Set rTemp = hLink.Range

' Create footnote         ActiveDocument.Footnotes.Add Range:=rTemp, _           Text:=rTemp.Text

' Delete possible leading space         rTemp.Collapse         rTemp.MoveStart Count:=-1         If rTemp.Text = " " Then rTemp.Delete     Next hLink

' Delete hyperlinks     For J = ActiveDocument.Hyperlinks.Count To 1 Step -1         ActiveDocument.Hyperlinks(J).Range.Delete     Next End Sub

Cet exemple effectue deux passes à travers tous les liens hypertexte du document.

Lors du premier passage, il crée les notes de bas de page et lors du second passage, il supprime les hyperliens. Notez également la partie du code qui vérifie s’il y a un espace avant le lien hypertexte. Ceci est fait pour que, s’il y en a, cet espace puisse être supprimé pour placer le numéro de note de bas de page obtenu juste à côté de tout ce qui se trouve avant cet espace. (En d’autres termes, si cela n’était pas fait, il y a fort à parier que chaque numéro de note de bas de page aurait un espace devant lui.)

Cela soulève un autre problème avec la macro dont vous devez être conscient: il suffit de créer les notes de bas de page et de supprimer les hyperliens. S’il y a des informations entourant le lien hypertexte d’origine (telles que des parenthèses, des virgules ou des points), ces caractères seront laissés dans le document. Cela signifie que vous devez effectuer un passage manuel dans votre document après avoir exécuté la macro pour vous assurer que les éventuels caractères superflus sont modifiés comme vous le souhaitez.

Enfin, notez que les hyperliens placés dans les notes de bas de page ne sont pas des hyperliens actifs, mais uniquement du texte. Ce n’est pas un gros problème, cependant, car le texte brut est généralement ce qui est souhaité lors de la création de documents contenant des notes de bas de page.

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 (13739) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.