Visual Basic - Leer un documento en Word desde Visual Basic 6.0

Life is soft - evento anual de software empresarial
 
Vista:

Leer un documento en Word desde Visual Basic 6.0

Publicado por Luis Muñoz (26 intervenciones) el 12/05/2006 10:46:40
Buenos Dias;

Hola deseo leer, bueno mejor dicho accesar a la informacion de un documento en word desde visual basic.

Coloque mi boton y mi CommonDialog1 para buscarlo, pero despues que lo busco, como podre accersar a su informacion....

De ante mano gracias y saludos desde Madrid - España....

Atte.
Luis Muñoz
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer un documento en Word desde Visual Basic 6.

Publicado por ruthy (2 intervenciones) el 12/05/2006 11:12:22
Hola Luis, yo estoy intentando hacer algo parecido a ti. Lo que quiero es abrir un documento word desde otro word. Lo que he hecho es crear un boton como tu con el siguiente codigo:

Private Sub CommandButton1_Click()
Dim oWord As New Word.Application
oWord.Visible = True

oWord.Documents.Open "path"

End Sub

Espero que te pueda ser de ayuda. Se me abre bien pero se queda el word un poco colgado sobretodo cuando quiero cerrar el fichero abierto. No se si tu o alguien del foro sabe si es que hago algo mal?

Y tambien quisiera saber como se puede hacer para indicar que el fichero no sea solo de lectura.

Un saludo. Agradeceré cualquier comentario que me pueda ser util
Ruthy
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer un documento en Word desde Visual Basic 6.

Publicado por Ramiro (32 intervenciones) el 12/05/2006 11:35:07
Private Sub Command1_Click()
Dim wb As Object
Dim sPath As String
Set wb = CreateObject("Word.Basic")
' wb.ChDefaultDir "C:\", 0
sPath = App.Path
wb.ChDefaultDir sPath, 0 ' Si el doc está en el directorio de la aplicación
wb.FileOpen Name:="MiDocumento.doc"
wb.AppShow
Application.WindowState = wdWindowStateMaximize
End Sub
Saludos, espero que te sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar