Error con word
Publicado por Nara (8 intervenciones) el 30/04/2003 00:53:19
presiso y consiso.
Mas que nada es para hacerles la consulta sobre su opinión sobre mi problema...
tengo una aplicación que escribe en word... y al imprimir en ciertos equipos se cae..
1.- instalé vb en el equipo problema y descubrí que se caía al cargar el archivo word
Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
a lo que le añadí readonly := true
2.- luego descubrí que se caía en el endif de una sentencia
If prorroga.contar = 1 Then
Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
Else
Documento.Application.Documents.Open App.Path & "\propermiso.doc", ReadOnly:=True
End If
a si que lo cambié a
If Prorrogas.Contar = 1 Then Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
If Prorrogas.Contar > 1 Then Documento.Application.Documents.Open App.Path & "\propermiso.doc", ReadOnly:=True
(para evitar el end if)
3.- Luego se me cayó al escribir
Documento.Selection.TypeText "3.- CARACTERISTICAS DE LA OBRA"
4.- cuando se cae sale el error
El archivo programa.exe ha probocado una aplicación no válida y se cerrará.
e incluso cierra el visual 6.0 en tiempo de
El archivo vb6.exe ha probocado una aplicación no válida y se cerrará.
S.O : windows 2000
officce :2000
Que opinan?
Vale la pena indicar que en varios equipos no presenta ningun problema.
Mas que nada es para hacerles la consulta sobre su opinión sobre mi problema...
tengo una aplicación que escribe en word... y al imprimir en ciertos equipos se cae..
1.- instalé vb en el equipo problema y descubrí que se caía al cargar el archivo word
Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
a lo que le añadí readonly := true
2.- luego descubrí que se caía en el endif de una sentencia
If prorroga.contar = 1 Then
Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
Else
Documento.Application.Documents.Open App.Path & "\propermiso.doc", ReadOnly:=True
End If
a si que lo cambié a
If Prorrogas.Contar = 1 Then Documento.Application.Documents.Open App.Path & "\permiso.doc", ReadOnly:=True
If Prorrogas.Contar > 1 Then Documento.Application.Documents.Open App.Path & "\propermiso.doc", ReadOnly:=True
(para evitar el end if)
3.- Luego se me cayó al escribir
Documento.Selection.TypeText "3.- CARACTERISTICAS DE LA OBRA"
4.- cuando se cae sale el error
El archivo programa.exe ha probocado una aplicación no válida y se cerrará.
e incluso cierra el visual 6.0 en tiempo de
El archivo vb6.exe ha probocado una aplicación no válida y se cerrará.
S.O : windows 2000
officce :2000
Que opinan?
Vale la pena indicar que en varios equipos no presenta ningun problema.
Valora esta pregunta


0