Dennis tiene una pequeña macro que hace un gran trabajo eliminando hipervínculos dentro de un documento. Acaba de recibir un nuevo documento con el que trabajar y tiene bastantes hipervínculos en notas al pie. La macro no elimina estos hipervínculos, y eliminarlos manualmente es una tarea enorme. Dennis se pregunta si existe una forma de eliminar los hipervínculos en las notas al pie de una sola vez.

De hecho, hay una forma. Puede hacerlo manualmente, si lo desea, siguiendo estos pasos:

  1. Coloque el puntero de inserción dentro del cuerpo de una nota al pie. (No importa qué nota al pie de página.)

  2. Presione Ctrl + A. Esto selecciona todas las notas al pie. (Si se selecciona todo el texto de su documento, significa que no realizó el paso 1.)

  3. Presione Ctrl + Mayús + F9. Esto convierte los hipervínculos en el texto seleccionado (las notas al pie) en texto normal.

Debe tener en cuenta que estos pasos realmente convierten todos los campos del texto seleccionado en texto normal. Dado que los hipervínculos se implementan mediante el uso de campos, se convierten. Pero también lo son otros campos que puedan estar en sus notas al pie. Si no desea cambiar otros campos, o si tiene la necesidad de lidiar un poco con los hipervínculos en las notas al pie, es posible que desee, en su lugar, utilizar una macro.

La siguiente macro eliminará los hipervínculos solo en las notas al pie:

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

Tenga en cuenta que la parte importante de la macro es la especificación de trabajar con el rango de historias wdFootnotesStory. Los documentos de Word pueden constar de varios rangos de historias, cada uno de los cuales representa un elemento diferente, como encabezados, pies de página, notas al pie, etc. Si desea eliminar los hipervínculos de todas las partes de su documento (es decir, de todos los rangos de historias), entonces puede usar una macro aún más corta:

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 recorre cada uno de los rangos de historias en el documento y, si hay hipervínculos en ese rango de historias, borra cada uno de ellos.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

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 (4636) se aplica a Microsoft Word 2007, 2010, 2013 y 2016.