PROBLEMA AL LLEVAR DE VISUAL BASIC A WORD. ERROR DE AUTOMATIZACION
Ironpony
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:\resultado.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
Leonardo Azpurua
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" <masch...@gmail.com> escribi� en el mensaje
news:a8582dbb-3cce-41b9...@t13g2000vbo.googlegroups.com...
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:\resultado.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
Ironpony
Visual basic instalado tambieén todo nuevo (lo he formateado) me sigue
dando el mismo error
Leonardo Azpurua
"Ironpony" <masch...@gmail.com> escribió en el mensaje
news:22d518e6-b58d-4b1e...@r14g2000vbm.googlegroups.com...
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!
Ironpony
> "Ironpony" <maschez...@gmail.com> escribi en el mensajenews:22d518e6-b58d-4b1e...@r14g2000vbm.googlegroups.com...
> En otro ordenador con XP instalado de nuevas, Office 2003 completo y
> dando el mismo error
> -----------------------------
>
> Hola,
>
> 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.
>
> 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
>
> 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