Eco Alternativas Bogota D.C UD SEASI

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