AYUDA!! POR FAVOR!!!

10/04/2013 - 11:23 por josuedavid2013 | Informe spam
¡ Hola !

Mi pregunta es la siguiente, soy nuevo en excel y queria saber como hacer para poder abrir 2 archivos de WORD en EXCEL, y llenar con datos especificos (nombre y cedula) del EXCEL una parte determinada del word, yo actualmente manejo este codigo (abajo) ; sin embargo no sé como hacer para abrir otro archivo WORD diferente a este y llenarlo con los mismo datos!!

les agradeceria un monton su ayuda!!!



Sub Crear()

Dim wrdApp As Object
Dim wrdDoc As Object
Dim wrdApp2 As Object
Dim wrdDoc2 As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Application.Visible = True
Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\lista y nombres de asistente.docm")
wrdApp.Run "Macro1", "NOMBREX1", Range("C12").Value
wrdApp.Run "Macro1", "CEDULAX1", Range("C14").Value
wrdApp.Run "Macro1", "DIRECCIONX1", Range("C17").Value
wrdApp.Run "Macro1", "NOMBREX2", Range("C8").Value
wrdApp.Run "Macro1", "CEDULAX2", Range("C10").Value
wrdApp.Run "Macro1", "FECHAX", Range("C6").Value
wrdApp.Run "Macro2"
wrdApp.Run "Macro1", Range("C12").Value, "NOMBREX1"
wrdApp.Run "Macro1", Range("C14").Value, "CEDULAX1"
wrdApp.Run "Macro1", Range("C17").Value, "DIRECCIONX1"
wrdApp.Run "Macro1", Range("C8").Value, "NOMBREX2"
wrdApp.Run "Macro1", Range("C10").Value, "CEDULAX2"
wrdApp.Run "Macro1", Range("C6").Value, "FECHAX"
wrdApp.Run "MacroC"

End Sub

Preguntas similare

Leer las respuestas

Search Busqueda sugerida