Error 429

[javiergarciaperez]

Hola. Hice un programa de cálculo de estructuras hace unos meses en vb 6.0, y funcionaba bien y sin ningún error, el caso es que el otro día tuve que formatear el ordenador y al volver a utilizr el programa me salía un error. Probé a abrirlo con Visual Basic, no con el ejecutable pero seguía dando el mismo error.
El problema aparece al pulsar un botón para pasar unos datos de las celdas de una hoja de excel a los marcadores de una hoja de word, y sale el siguiente mensaje de error:


Le doy a depurar y me selecciona la siguiente parte de código:

Código PHP:

  Private Sub Command3_Click() 
Dim AppWord As Word.Application 
Dim DocWord As Word.Document 
Asignamos el documento 
Set AppWord = CreateObject("word.application") 
Set DocWord = AppWord.Documents.Open("C:\Estructuras\Informes\Informevigasacero.doc")  
   

y lo seleccionado como sitio donde está el error es:

Código PHP:

  Set AppWord = CreateObject("word.application")  
   

¿Cómo lo puedo solucionar? Antes de formatear el ordenador no me pasaba.
Ayuda por favor.
Gracias. Un saludo.

[David]

Para que ese código funcione debes tener instalado Office Word, ¿ya lo volviste a instalar después de formater? ¿qué versión instalaste?.

[javiergarciaperez]

Sí, lo instalé. Es la versión 2003.

[David]

Qué raro .

Puedes probar, ya que tienes la referencia a Word en tu proyecto:

Código vb:

Dim AppWord As New Word.Application
 

[javiergarciaperez]

Gracias por responder. He probado lo que me has dicho pero sigue pasando lo mismo. El problema no está ahí sino en la línea que dije antes, que es la que vb6.0 me marca de amarillo para indicar el error.
Si sabes qué puede ser dímelo por favor.
Gracias.

[David]

Pero si colocas de la forma como te comenté ya no es necesario usar el CreateObject, puedes usar directamente la variable AppWord.

[javiergarciaperez]

Entonces podría borrar Set AppWord = CreateObject("word.application") ?
Porque he hecho eso, pero ahora me marca error en la siguiente línea, en:

Código PHP:

  Set DocWord = AppWord.Documents.Open("C:\Estructuras\Informes\Informevigasacero.doc")  
   

Gracias una vez más.

[David]

A ver, deduciendo qué puede ser, el error que te marca es: Variable de tipo Object o la variable de bloque With no está establecida.

¿Has colocado el New en la definición de la Variable como te dije?.

[javiergarciaperez]

El error que me sale es el de la imagen que puse arriba, y si le doy a Depurar VB me marca en amarillo en el código lo de Set AppWord = CreateObject("word.application") .
Sí, puse lo de New.

Gracias.

[David]

No, lo que preguntaba era sobre el error que daba al quitar esa línea y colocando el New.

[javiergarciaperez]

A, vale.
El error que me da es el mismo, pero ahora VB marca la línea: Set DocWord = AppWord.Documents.Open("C:\Estructuras\Informes\In formevigasacero.doc") , claro porque la anterior no está.

[David]

Raro, muy raro .

No, no es porque lo anterior no está, es que con el New en la definición decimos que cree una instancia de Word.Application la primera vez que se hace referencia a la variable, pero en este caso por alguna razón no logra crearlo.

¿Instalaste el Office completo? ¿Probaste a reinstalarlo?.

[javiergarciaperez]

Sí instalé el Office completo, no lo he reinstalado porque no estoy en mi casa y no tengo el disco, pero quizá sea por una mala instalación porque el Outlook no consigo hacerlo funcionar. Cuando pueda lo pruebo y te digo lo que sea vale?
De todas maneras lo he probado en otro ordenador y salía un error en el mismo sitio, lo que no se qué error era porque me lo han dicho por teléfono y no sabían mirarlo.
Gracias de todas formas.
Si crees que puede ser por alguna otra cosa dímelo por favor.
Mañana lo veo, que me acuesto ya.
Un saludo. Gracias.

[javiergarciaperez]

Ya he reinstalado el Office 2003 y el programa ha vuelto a funcionar. Pero he detectado de dónde viene el error, al instalar el SP3 del Office ha vuelto a salir el mismo error, y con Office 2007 no consigo que funcione.
¿Sabes por qué puede ser?
Gracias.