Stephen tiene un documento grande (más de 300 páginas) que incluye una gran cantidad de hipervínculos en el texto principal. También hay notas a pie de página en el documento. Cada uno de los hipervínculos debe convertirse en una nota al pie, lo que (por supuesto) aumentará el número de notas al pie en el documento.

El aumento no es un problema. El problema es encontrar una forma rápida de convertir todos esos hipervínculos en notas al pie. Stephen se pregunta si esto se podría hacer usando una macro.

De hecho, esto se puede hacer con una macro. De hecho, la macro puede ser más simple de lo que imagina. Aquí tienes un ejemplo:

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

Este ejemplo realiza dos pasadas por todos los hipervínculos del documento.

Durante la primera pasada, crea las notas al pie y durante la segunda, borra los hipervínculos. Tenga en cuenta también la parte del código que comprueba si hay un espacio antes del hipervínculo. Esto se hace para que, si lo hay, ese espacio se pueda eliminar para poner el número de nota al pie resultante justo al lado de cualquier cosa antes de ese espacio. (En otras palabras, si esto no se hiciera, es una buena apuesta que cada número de nota al pie tenga un espacio antes)

Eso plantea otro problema con la macro que debe tener en cuenta: todo lo que hace es crear las notas al pie y eliminar los hipervínculos. Si hay información en torno al hipervínculo original (como paréntesis, comas o puntos), esos caracteres se dejarán en el documento. Esto significa que debe hacer un pase manual a través de su documento después de ejecutar la macro para asegurarse de que los posibles caracteres extraños se editen como usted desea.

Por último, tenga en cuenta que los hipervínculos colocados en las notas al pie de página no son hipervínculos activos, son solo texto. Sin embargo, esto no es un gran problema, ya que el texto sin formato es normalmente lo que se desea al crear documentos que contienen notas al pie.

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (13739) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.