PASAR DATOS DE EXCEL A WORD
Publicado por Eduardol (10 intervenciones) el 18/11/2016 05:56:40
Bueno, Estoy haciendo una macro que abre unos archivos".doc" qie estan en una ubilacion especifica, como se puede ver mas abajo. Ahora bien, la macrofruncion y abre los archivos. Pero, la parte de preempazar los datos no funciona.
Espero que si alguien lee el codigo me pueda dar una mano.
Aca les dejo el codigo
Espero que si alguien lee el codigo me pueda dar una mano.
Aca les dejo el codigo
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
26
27
28
29
30
Dim wdApp As New Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(“Word.Application”)
If Err.Number <> 0 Then 'Word isn’t already running
Set wdDoc = CreateObject(“Word.Application”)
End If
If Worksheets("Inicio").Range("aa3") = True Then 'Deberia abrir el archivo que esta debajo
With wdApp
.Visible = True
.Documents.Open Filename:=ThisWorkbook.Path & "\1- F-61260.doc"
For i = 1 To Worksheets("Source").Range("c1").Value 'celda dónde está la cuenta
datos = Source.Range("B" & i).Text 'dónde están los datos
reemp = Source.Range("C" & i).Text 'dónde están las etiquetas
'utilizamos buscar y reemplazar de word
With wdDoc.Selection.Find
.Text = datos 'busca el texto de datos
.Replacement.Text = reemp 'reemplaza por el texto
.Execute Replace:=2 'la variable en dos es para reemplazar todos los valores
End With
Next i
wdApp.Activate 'Activa el documento de word
End With
End If
Valora esta pregunta
0