¿Cómo agregar hipervínculos en Word desde Excel VBA?

Para agregar hipervínculos en un documento de Word desde Excel usando VBA, puedes utilizar la automatización de objetos para controlar Word desde Excel. Aquí te dejo un ejemplo de cómo puedes hacerlo:

   Sub AddHyperlinkToWord()
       Dim wdApp As Object
       Dim wdDoc As Object
       Dim rng As Object
       Dim filePath As String
       Dim hyperlinkText As String
       Dim hyperlinkAddress As String
       
       ' Ruta del documento de Word
       filePath = "C:rutaaldocumentomiDocumento.docx"
       
       ' Texto visible del hipervínculo
       hyperlinkText = "Texto del hipervínculo"
       
       ' URL o dirección del hipervínculo
       hyperlinkAddress = "http://www.ejemplo.com"
       
       ' Comprobar si Word ya está abierto
       On Error Resume Next
       Set wdApp = GetObject(, "Word.Application")
       On Error GoTo 0
       
       ' Si Word no está abierto, iniciarlo
       If wdApp Is Nothing Then
           Set wdApp = CreateObject("Word.Application")
           wdApp.Visible = True
       End If
       
       ' Abrir el documento de Word
       Set wdDoc = wdApp.Documents.Open(filePath)
       
       ' Establecer el objeto rango como el final del documento
       Set rng = wdDoc.Content
       rng.Collapse Direction:=0 ' Colapsar el rango al final del documento
       
       ' Insertar el hipervínculo
       wdDoc.Hyperlinks.Add Anchor:=rng, Address:=hyperlinkAddress, TextToDisplay:=hyperlinkText
       
       ' Guardar y cerrar el documento
       wdDoc.Save
       wdDoc.Close
       
       ' Cerrar Word
       wdApp.Quit
       
       ' Limpiar variables
       Set rng = Nothing
       Set wdDoc = Nothing
       Set wdApp = Nothing
       
       MsgBox "Hipervínculo agregado exitosamente."
   End Sub

Abre Excel y accede al Editor de VBA: Presiona `ALT + F11` para abrir el Editor de VBA.
Inserta un Módulo: Ve a `Insertar` > `Módulo` para añadir un nuevo módulo.
Escribe el código VBA: Copia y pega el siguiente código en el módulo:
Modificar el código según tus necesidades: Asegúrate de ajustar las variables `filePath`, `hyperlinkText` y `hyperlinkAddress` para que apunten a tu archivo de Word y a la URL o dirección deseada.
Ejecutar el Macro: Guarda el script y ejecuta el macro presionando `F5` o a través de la interfaz del editor de VBA para agregar el hipervínculo al documento de Word.

Este script abre el documento especificado, agrega un hipervínculo al final del texto, guarda los cambios, y cierra Word. Asegúrate de tener permisos para acceder y modificar el documento de Word.