Los documentos de Word de Jim tienen muchas URL que no son hipervínculos activos.

Cada URL está «entre corchetes» con el texto [lt] y [gt]. Entonces, por ejemplo, una URL podría aparecer como [lt] `link: / https: – www.tips.net% 5Bgt% 5D. Jim se pregunta si hay alguna forma en que una macro pueda encontrar el texto entre los códigos de corchetes, crear un hipervínculo a partir del texto encontrado y luego eliminar los códigos de corchetes.

La búsqueda de tales instancias es muy sencilla si utiliza las capacidades de comodín de Buscar y reemplazar. Todo lo que necesita hacer es buscar «[lt]` * [gt] «(sin las comillas) y asegurarse de especificar que está haciendo una búsqueda con comodines. La parte complicada consiste en deshacerse de los códigos de corchetes y convertir lo que sea que haya entre ellos en un hipervínculo activo.

Para hacer todo esto en una sola pasada, realmente necesitas usar una macro, como sospechaba Jim. Aun así, la macro no necesita ser demasiado compleja.

Aquí hay un ejemplo de uno que funcionará:

Sub AddHyperLinksAndClearBrackets()

Selection.Find.ClearFormatting     With Selection.Find         .Text = "\[lt\]*\[gt\]"

.Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = True         .MatchSoundsLike = False         .MatchAllWordForms = False     End With

Selection.Find.Execute     Do While Selection.Find.Found         Selection = Mid(Selection, 5, Len(Selection) - 8)

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _           Address:=Selection, SubAddress:=""

Selection.Find.Execute     Loop End Sub

Tenga en cuenta que siempre que se encuentra una coincidencia (en el ciclo Do While), hay dos comandos que hacen la mayor parte del trabajo. El primero es este:

Selection = Mid(Selection, 5, Len(Selection) - 8)

Esta línea de comando establece la selección igual a la selección menos los códigos de corchete inicial y final. En efecto, elimina los códigos de corchetes, dejando lo que estaba en el medio. Este es un pequeño truco hábil que excluye la necesidad de realizar una operación separada de buscar y reemplazar para deshacerse de los códigos de soporte.

Después de la eliminación de los códigos de corchetes, se ejecuta la siguiente línea:

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, _           Address:=Selection, SubAddress:=""

Esta línea convierte la selección restante (que debería ser un hipervínculo de solo texto) en un hipervínculo activo.

La macro es breve, sencilla y se ejecuta muy rápido, independientemente de cuántos hipervínculos codificados tenga en su documento.

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