ms-word - regresar - que es un hipervinculo

Edite el estilo de todos los hipervínculos en un documento de Word

Question

Tengo un documento de Word lleno de hipervínculos. Los enlaces funcionan bien, pero por alguna razón, la mayoría de ellos ya no son azules. Todo lo que realmente quiero hacer es tratar de encontrar una forma de usar una macro o algo para recorrer el documento y agregar el formato de estilo "Hipervínculo" a cada hipervínculo.

Intenté editar algunos códigos de macros (uno que cambia todas las URL de enlaces), ¡pero sigo empeorando el problema! Solía ​​ser bueno en VBScript, pero han pasado años desde entonces.

¿Alguna solución fácil que no implique cambiar manualmente cada estilo?

Como nota al margen, todos ellos están actualmente en el estilo "Normal", por alguna razón.

Answer 1

Intente ejecutar este script VBA (mejor en el modo de depuración usando la tecla F8: tenga las ventanas VBA y Word una al lado de la otra para que pueda ver lo que está sucediendo):

Sub FormatLinks()
Dim H As Hyperlink

    For Each H In ActiveDocument.Hyperlinks
        H.Range.Select                                      '' (A)
        Selection.ClearFormatting                           '' (B)

        H.Range.Style = ActiveDocument.Styles("Hyperlink")  '' (C)
    Next H
End Sub

Esta voluntad

• pasar por todos los hipervínculos en su documento (A),
• eliminar cualquier formateo en el texto subyacente (B) y
• asigna el texto indiferente al estilo "Hipervínculo" (C)

(C) no es estrictamente necesario, ya que (B) ya debería desinfectar su documento, pero quizás sea mejor tener hipervínculos realmente asignados al estilo "Hipervínculo" porque es posible que desee cambiar el estilo más adelante.