type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" width="425" height="344">
2. MACRO PARA BUSCAR Y REMPLAZAR EN UN ARCHIVO WORD
Copia y pega en tu macro el siguiente código:
Sub Generar_Word()
Ruta = _
Application.GetOpenFilename _
' Ruta de la plantilla'
Set objword = CreateObject("Word.Application")
objword.Visible = True
objword.documents.Add template:=Ruta, newtemplate:=False, documentType:=0
'Duplica la plantilla para sobreescribir los datos y crear uno nuevo'
For i = 3 To 5
buscar = Hoja2.Range("D" & i).Text
remplazar = Hoja2.Range("C" & i).Text
'captura el valor a bsucar y el que se remplazara'
With objword.Selection.Find
.Text = buscar
.Replacement.Text = remplazar
.Execute Replace:=2
End With
Next i
End Sub
Nombre:
E-Mail (no será publicado):
Sitio Web (opcional):
Carlos Esteban Eco Alternativas, Bogota D.C UDAlternativas Energéticas, productos de excelente calidad y precio, importadores directos» Ver perfil