Hola buenos dias.
al ejecutar el siguiente codigo me sale el error 91 .....
Sub abrirword()
Dim objWord as object
Dim objDoc As Object
Dim objSelection As Object
Dim objpath As Object
Dim datos As String
Dim reem As String
Dim i As Integer
objpath = Hoja2.Range("E4").Text & Hoja2.Range("E3").Text & ".docx"
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Add Template:=objpath, NewTemplate:=False, DocumentType:=0
For i = 0 To Hoja2.Range("E1").Value
datos = Hoja2.Range("C" & 1).Text
reem = Hoja2.Range("A" & 1).Text
With objWord.Selection.Find
.Text = datos
.remplacement.Text = reem
.Execute replase:=2
End With
Next i
objWord.Active
End Sub
he leido sobre el error y bueno la verdad no tengo no se que sera, pido su ayuda y mil gracias.
Varias erratas en tu código:
.Replacement.Text = reem
.Execute replace:=2
Para depurar este tipo de código que utiliza automatización (manipular Word desd Excel), es mejor que añadas una referencia a Microsoft Word xx Object Library, esto se hace en Herramientas>Referencias
Declara las variables de objeto con el tipo adecuado de word para que las reconozca.
Cuando todo funcione, entonces sí puedes cambiar los tipos por el genérico Object para realizar el LateBinding (sin refrencia a la biblioteca de objetos de word), es decir, crear los objetos en tiempo de ejecución y que no dependan de las referencias a la versión de Word
------
Ya sé Excel, pero necesito más.