Como Abrir Un Documento De Word

[onelar]

HOLA AMIGOS:

Estoy creando una programita, y quiero que este me abra un documento de word, pero cuando lo llamo, siempre me da el error de que me falta un objeto.

He probado de muchas maneras, y he visto varios ejemplos por internet y en los manuales, pero nada, no se como sacarlo adelante.

Por favor, haber si alguno que sepa como hacerlo, me echa una mano. Por favor sed un poco explícitos porque no estoy muy puesto.

Para vuestra información el sistema operativo que uso es el xp profesional con el Microsoft office xp también profesional, y sería la programación en VISUAL BASIC 6

MUCHAS GRACIAS POR ADELANTADO.

[ajojara]

En un módulo declara las variables:
Public fword As Word.Application
Global ExisteWord As Boolean
Dim WordActivo As Boolean

Y crea las siguientes funciones:

Public Sub AbrirWord()
On Error GoTo WordNoEjecutando
Dim Donde As String
Donde = "Buscando Word"
ExisteWord = True
WordActivo = True

Set fword = GetObject(, "word.application")

If Donde = "Abrir Word" Then
ExisteWord = False
Donde = "Abriendo Word"
Set fword = CreateObject("word.application")
ExisteWord = True
End If

Exit Sub

WordNoEjecutando:
Select Case Err.Number
Case 429
If Donde = "Buscando Word" Then
Donde = "Abrir Word"
Err.Clear
WordActivo = False
Resume Next
ElseIf Donde = "Abriendo Word" Then
MsgBox "Error al abrir Word:" & Chr$(10) _
& "No se puede abrir Word." & Chr$(10) & Chr$(10) _
& "Numero de error: " & Err.Number & Chr$(10) _
& "Descripción: " & Err.Description, vbCritical
Exit Sub
End If
ExisteWord = False
Case Else
If Err.Number <> 0 Then
MsgBox "Error al abrir Word:" & Chr$(10) & Chr$(10) _
& "Numero de error: " & Err.Number & Chr$(10) _
& "Descripción: " & Err.Description, vbCritical
End If
End Select
End Sub

Public Function CerrarWord()
On Error Resume Next
If Not WordActivo Then
fword.Application.Quit wdDoNotSaveChanges
End If
DoEvents
End Function

Puedes utilizarlas después, por ejemplo:

AbrirWord
If ExisteWord Then
...
End If

Y si salta algún error puedes usar CerrarWord si no queda cerrado:

Errores:
MsgBox "Error al Generar Documento" & Chr$(10) & Chr$(10) _
& "Numero de error: " & Err.Number & Chr$(10) _
& "Descripción: " & Err.Description & " ** " & G_Nombre_Sub_Error, vbCritical
Resume Next
CerrarWord

Espero que te sirva de ayuda
Saludos

[onelar]

GRACIAS AJOJARA:

Gracias por el esfuerzo de contestadme, pero no se sacar esto adelante, creo que soy un poquito torpe.

No se si es tomarme mucha confianza, pero si me pudieras mandar a mi correo un pequeño ejemplo. Con que sea un simple formulario con un botón que al pulsar abra un documento de word que se llame por ejemplo "prueba" y este colgado de la C:\ me sería suficiente. Creo que desde ahí ya podría seguir trabajando.

Si cualquier otro usuario de este foro tuviera la solución y me la quisiera mandar le estaría muy agradecidos.

mi dirección: [email protected]


MUCHAS GRACIAS A TODOS POR VUESTRO TIEMPO.

[SunDarK]

Comprueba que el objeto esté bien instanciado,que ese error me suena a que no lo has declarado bien,saludos