Annemieke tiene un documento bastante extenso e incluye un buen número de hipervínculos. Le gustaría copiar todos esos hipervínculos (y solo los hipervínculos) a un documento nuevo para tener una lista de ellos en un solo lugar. Se pregunta si hay una manera fácil de hacer esto.

La única forma de hacer esto es usar una macro. (Las sugerencias que incluyen el uso de Buscar y reemplazar o la búsqueda de texto con estilos específicos copiarán solo el texto del enlace, no el hipervínculo real). La clave de la macro es trabajar con la colección de hipervínculos, prestando especial atención a las propiedades TextToDisplay y Address de cada miembro de la colección.

Sub PullHyperlinks()

Dim Src As Document     Dim Link As Hyperlink     Dim iDoDisplay As Integer

Set Src = ActiveDocument     If Src.Hyperlinks.Count > 0 Then         iDoDisplay = MsgBox("Include display text for links?", vbYesNo)



Documents.Add DocumentType:=wdNewBlankDocument         For Each Link In Src.Hyperlinks             If iDoDisplay = vbYes Then                 Selection.TypeText Link.TextToDisplay                 Selection.TypeText vbTab             End If             Selection.TypeText Link.Address             Selection.TypeParagraph         Next Link     Else         MsgBox "There are no hyperlinks in this document."

End If End Sub

La macro primero comprueba si hay hipervínculos en el documento actual. Si los hay, puede continuar el proceso de extracción; si no los hay, se muestra un mensaje a tal efecto.

Suponiendo que hay hipervínculos en el documento, se pregunta al usuario si el nuevo documento debe contener el texto de visualización de los enlaces. A continuación, la macro crea un nuevo documento y recorre cada miembro de la colección de hipervínculos. El valor de la propiedad TextToDisplay se agrega al nuevo documento (si corresponde) seguido del valor de la propiedad Dirección.

_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 (13549) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.