word falta de metodos en objeto find
Publicado por alberto (35 intervenciones) el 20/04/2007 19:27:38
He bajado de aqui una manera de "llenar" plantillas de word desde VB, que en un momento me funciono muy bien. Por problemas tecnico tube que reinstalar Windows, VB y Officce nuevamente y desde ese entonces al compilar el programa (por modificaciones y mejoras) me da un error "El argumento no es opcional". Aqui va el codigo problematico
Dim xWord As Word.Application ' Instancia a Word
Dim xRange As Range ' Rango del objeto
Dim xSelection As Find ' Búsqueda del objeto
Set xWord = New Word.Application
Dim destino As String
destino = "//SERVER/ARCHIVOS/plantilla/Caratulas1.doc"
xWord.Documents.Add destino
Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%fecha%%", , , , , , , , , Date, True
el error lo marca en el metodo find mas precisamente en el execute (que no aparace como opcion en el menu desplegable)
si pueden decirme en que fallo les agradecere.
Dim xWord As Word.Application ' Instancia a Word
Dim xRange As Range ' Rango del objeto
Dim xSelection As Find ' Búsqueda del objeto
Set xWord = New Word.Application
Dim destino As String
destino = "//SERVER/ARCHIVOS/plantilla/Caratulas1.doc"
xWord.Documents.Add destino
Set xRange = xWord.ActiveDocument.Range
xRange.Find.Execute "%%fecha%%", , , , , , , , , Date, True
el error lo marca en el metodo find mas precisamente en el execute (que no aparace como opcion en el menu desplegable)
si pueden decirme en que fallo les agradecere.
Valora esta pregunta
0