PROBLEMA AL LLEVAR DE VISUAL BASIC A WORD. ERROR DE AUTOMATIZACION

09/04/2011 - 02:07 por Ironpony | Informe spam
He creado un fichero word de Office 2003 con varios marcadores, los
cuales quiero mandarle la información desde un programa en Visual
Basic 6


El código que uso es el siguiente

'* La plantilla donde están los marcadores se llama ficheroword
const nombrearchivo="c:\ficheroword.doc"
'* El resultado, es decir el word pero con los marcadores rellenos se
llama resultado.doc
const resultado="c:esultado.doc"

Dim ObjWord As Word.Application
Dim Documento As Word.Document
FileCopy NombreArchivo, Resultado
Set ObjWord = New Word.Application
Set Documento = ObjWord.Documents.Open(resultado)
documento.Bookmarks.Item("MARCADOR").Range.Text valorquellevoalmarcador

pues en la línea set objword=new word.application me da el fallo ..
ERROR '-2147221163 (80040155)' en tiempo de ejecución: Error de
Automatizacion

y no me genera el word

¿QUE PUEDE SER?

Tengo seleccionada la referencia "microsoft word 11 Object Library"

Como siempre, gracias
 

Leer las respuestas

#1 Leonardo Azpurua
09/04/2011 - 06:21 | Informe spam
Hola,

El error 0x80040155 normalmente aparece relacionado con la condición
"Interfaz no registrada".

Por el punto donde se presenta, parece sugerir algún problema con la
automatización de Word. ¿La máquina donde se te presenta es la misma
en la que definiste el proyecto original?

Si tu proyecto tiene, por ejemplo, una referencia a Word 2003, pero en
el equipo está instalado Word 2000, o 2007, puedes tener problemas
parecidos. Lo que resulta extraño es que el proyecto cargue, inicie la
ejecución y falle justo en esa instrucción.

Podría ser un problema con la instalación de Word u Office, o bien un
factor extraño que haya corrompido dicha instalación.

Te sugiero reinstalar Office.

Salud!



"Ironpony" escribió en el mensaje
news:
He creado un fichero word de Office 2003 con varios marcadores, los
cuales quiero mandarle la información desde un programa en Visual
Basic 6


El código que uso es el siguiente

'* La plantilla donde están los marcadores se llama ficheroword
const nombrearchivo="c:\ficheroword.doc"
'* El resultado, es decir el word pero con los marcadores rellenos se
llama resultado.doc
const resultado="c:esultado.doc"

Dim ObjWord As Word.Application
Dim Documento As Word.Document
FileCopy NombreArchivo, Resultado
Set ObjWord = New Word.Application
Set Documento = ObjWord.Documents.Open(resultado)
documento.Bookmarks.Item("MARCADOR").Range.Text valorquellevoalmarcador

pues en la línea set objword=new word.application me da el fallo ..
ERROR '-2147221163 (80040155)' en tiempo de ejecución: Error de
Automatizacion

y no me genera el word

¿QUE PUEDE SER?

Tengo seleccionada la referencia "microsoft word 11 Object Library"

Como siempre, gracias

Preguntas similares