macro ejecutar hipervinculos word desde excel
Publicado por gamon (1 intervención) el 23/04/2020 16:27:39
Hola amig@s,
dispongo de este código en excel que en función de las respuestas de unas listas desplegables abre una plantilla de Word y copia unas rutas donde se encuentran unos archivos, también de word., El último paso que necesito para completar el miniproyecto es que el código vba haga que se ejecuten los hipervínculos que se deben asociar a esas rutas.
O sea, necesito asociar un hipervínculo a cada ruta y que al ejecutar la macro aparezca la plantilla de Word con esos documentos ya abiertos, desconozco si puede hacerse todo desde excel o si se han de hacer macros también en word,
El código hasta ahora es en excel y es el siguiente:
Estaría tremendamente agradecido si algún@ de ustedes que son expert@s en vba pudiera ayudarme, quizas fuera mas fácil sin reemplazar el texto...no se...soy principiante en esto del vba.
Muchas gracias de antemano, aunque sea sólo por leerme
dispongo de este código en excel que en función de las respuestas de unas listas desplegables abre una plantilla de Word y copia unas rutas donde se encuentran unos archivos, también de word., El último paso que necesito para completar el miniproyecto es que el código vba haga que se ejecuten los hipervínculos que se deben asociar a esas rutas.
O sea, necesito asociar un hipervínculo a cada ruta y que al ejecutar la macro aparezca la plantilla de Word con esos documentos ya abiertos, desconozco si puede hacerse todo desde excel o si se han de hacer macros también en word,
El código hasta ahora es en excel y es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ExcelCreaArchivoWord()
Dim objWord As Word.ApplicationDim wdDoc As Word.DocumentSet objWord = CreateObject("Word.Application")
objWord.Visible = True
Set wdDoc = objWord.Documents.Add(Template:="F:\PRUEBA.dotx", NewTemplate:=False,
DocumentType:=0)
For i = 1 To Hoja2.Range("A8").Value 'CELDA DONDE TENGO EL CONTADOR
datos = Hoja2.Range("B" & i).Text
reemp = Hoja2.Range("C" & i).Text
If Range("A" & i).Value <> "NO" Then
With objWord.Selection.Find
.Text = datos
.Replacement.Text = reemp
.Execute Replace:=2
End With
End If
Next i
objWord.ActivateEnd Sub
Estaría tremendamente agradecido si algún@ de ustedes que son expert@s en vba pudiera ayudarme, quizas fuera mas fácil sin reemplazar el texto...no se...soy principiante en esto del vba.
Muchas gracias de antemano, aunque sea sólo por leerme
Valora esta pregunta
0