Graham es un corrector de estilo y una de las tareas (bastante habituales) a las que se enfrenta es eliminar http: // de las URL que comienzan con http: // www. Graham encuentra esta tarea fácil si la URL es solo texto. Sin embargo, si se trata de un hipervínculo, debe mostrar el cuadro de diálogo Editar hipervínculo, seleccionar http: // en el campo Texto para mostrar, eliminarlo y cerrar el cuadro de diálogo.

Afortunadamente, no es necesario mostrar siempre el cuadro de diálogo Editar hipervínculo para realizar los cambios. Incluso si un hipervínculo está activo, puede buscar y reemplazar información en lo que se muestra. Por ejemplo, hacer una búsqueda de http: // www y reemplazarlo con www funcionará bien, incluso para hipervínculos activos. Word cambia solo el texto que se muestra y no el hipervínculo subyacente en sí.

Si tiene muchos hipervínculos para editar y este truncamiento de URL es una tarea común, es posible que desee utilizar una macro para manejar esto. Puede desarrollar una pequeña macro que recorra cada hipervínculo del documento y elimine la parte http: //. El siguiente es un ejemplo:

Sub FixHyperlinks1()

Dim hyp As Hyperlink     Dim sLink As String

For Each hyp In ActiveDocument.Hyperlinks         sLink = hyp.Address         sLink = replace(strLink, "http://www", "www")

hyp.Address = sLink     Next hyp End Sub

Sin embargo, este enfoque probablemente no sea tan completo como usted quisiera. Solo afecta a los hipervínculos activos; no afecta a las URL de texto sin formato en su documento. Si desea utilizar un enfoque más completo, necesita algo que elimine todos los hipervínculos (probablemente no los necesite en el documento en primer lugar) y luego elimine la porción http: //. Aquí hay uno que hará precisamente eso:

Sub FixHyperlinks2()

'Remove hyperlinks     With ActiveDocument         While .Hyperlinks.Count > 0             .Hyperlinks(1).Delete         Wend     End With

'Remove http://     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "http://www"

.Replacement.Text = "www"

.Forward = True         .Wrap = wdFindContinue      End With     Selection.Find.Execute Replace:=wdReplaceAll End Sub

_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 (3833) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Removing_HTTP_from_URLs [Eliminando HTTP de las URL].