Error al ejecutar macro de Excel a Word
Publicado por GeographicDiscoverer (2 intervenciones) el 09/05/2021 20:49:13
Buenas tardes:
Soy nuevo en el foro.
Antes de nada indicar que he buscado algún hilo sobre el tema y no he encontrado uno con el que aclararme. Para más inri, me estreno en el mundo Visual Basic y trabajo en el sector financiero (Área Legal)
A lo que voy...
Lo que pretendo lograr es automatizar la tarea de modificar el contenido de unos contratos en Word con los datos que tengo en una tabla Excel evitando perder tiempo.
Lo que quiero viene a ser esto mismo:
https://www.youtube.com/watch?v=d-JCRA-zIwA&ab_channel=ElT%C3%ADoTech
El problema surge ejecutar la siguiente macro: (continúo después del código)
**CONTINUACIÖN**
Resumiendo; si alguno puede echarme una mano se lo agradecería enormemente.
Muchas gracias por vuestra atención.
Un saludo,
GeographicDiscoverer
Soy nuevo en el foro.
Antes de nada indicar que he buscado algún hilo sobre el tema y no he encontrado uno con el que aclararme. Para más inri, me estreno en el mundo Visual Basic y trabajo en el sector financiero (Área Legal)
A lo que voy...
Lo que pretendo lograr es automatizar la tarea de modificar el contenido de unos contratos en Word con los datos que tengo en una tabla Excel evitando perder tiempo.
Lo que quiero viene a ser esto mismo:
https://www.youtube.com/watch?v=d-JCRA-zIwA&ab_channel=ElT%C3%ADoTech
El problema surge ejecutar la siguiente macro: (continúo después del código)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub generar_word()
ruta = "C:|Users@A109466\OneDrive - BlackStone\SSJJ\Plantilla Orden trabajo" **El documento está habilitado para macros**
Set objWord = CreateObject ("Word.Application")
obj.Visible = True
objWord.documents.add template:=ruta, NewTemplate:=False, DocumentType:=0
For i = 5 To 14Busqueda = Hoja2.Range ("D" & i).Text
Reemplazar = Hoja2.Range ("C" & i).Text
With objWord.Selection.Find
.Text = Busqueda
.Replacement.Text = Reemplazar
.Execute Replace:=2 **AQUÍ ME DA EL ERROR 4602: El objeto hace referencia a un área protegida del documento. Este método o propiedad no está disponible**
End With
Next i
objWord.ActivateEnd Sub
**CONTINUACIÖN**
Resumiendo; si alguno puede echarme una mano se lo agradecería enormemente.
Muchas gracias por vuestra atención.
Un saludo,
GeographicDiscoverer
Valora esta pregunta
0
