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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Ironpony
09/04/2011 - 12:10 | Informe spam
En otro ordenador con XP instalado de nuevas, Office 2003 completo y
Visual basic instalado tambieén todo nuevo (lo he formateado) me sigue
dando el mismo error
Respuesta Responder a este mensaje
#3 Leonardo Azpurua
09/04/2011 - 22:14 | Informe spam
"Ironpony" escribió en el mensaje
news:
En otro ordenador con XP instalado de nuevas, Office 2003 completo y
Visual basic instalado tambieén todo nuevo (lo he formateado) me sigue
dando el mismo error

Hola,

Creé un proyecto, le agregué una referencia a Microsoft Word 11.0
Object Library, en Form.Load escribí:

Dim w As Word.Application
Set w = New Word.Application
w.Visible = True

y me abre la ventana de Word 2003.

Independientemente del código que viene despues, la instanciación de
la aplicación de Word, que es donde tu tienes el problema, parece
funcionar.

Una prueba que puedes hacer es utilizar "late binding": remueve la
referencia a Word de tu proyecto, declara las variables as object, y
prueba con algo como esto:

Dim w As Object
Set w = CreateObject("Word.Application")
w.Visible = True

si pasa la instanciación, el problema estaría en una discrepancia
entre la interfaz asumida por la biblioteca de objetos y la interfaz
efectivamente publicada por Word.

Salud!
Respuesta Responder a este mensaje
#4 Ironpony
13/04/2011 - 01:57 | Informe spam
On 9 abr, 22:14, "Leonardo Azpurua" wrote:
"Ironpony" escribi en el mensajenews:
En otro ordenador con XP instalado de nuevas, Office 2003 completo y
Visual basic instalado tambie n todo nuevo (lo he formateado) me sigue
dando el mismo error

Hola,

Cre un proyecto, le agregu una referencia a Microsoft Word 11.0
Object Library, en Form.Load escrib :

    Dim w As Word.Application
    Set w = New Word.Application
    w.Visible = True

y me abre la ventana de Word 2003.

Independientemente del c digo que viene despues, la instanciaci n de
la aplicaci n de Word, que es donde tu tienes el problema, parece
funcionar.

Una prueba que puedes hacer es utilizar "late binding": remueve la
referencia a Word de tu proyecto, declara las variables as object, y
prueba con algo como esto:

    Dim w As Object
    Set w = CreateObject("Word.Application")
    w.Visible = True

si pasa la instanciaci n, el problema estar a en una discrepancia
entre la interfaz asumida por la biblioteca de objetos y la interfaz
efectivamente publicada por Word.

Salud!



MUCHAS GRACIAS, ME VALE CON ESTE EJEMPLO. GRACIAS
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida