Visual Basic.NET - Abrir Word desde Visual.net

 
Vista:

Abrir Word desde Visual.net

Publicado por Maria (6 intervenciones) el 15/02/2007 16:08:10
Tengo el siguiente código en el evento click pero no me abre Word . ¿ Sabeis por que?

Dim myStream As Stream
Dim myOpenFile As New OpenFileDialog

'limpiando el RichTextBox
'Me.RtxtXmlReader.Clear()

'dando las características al archivo que abriremos
With myOpenFile
'directorio inicial
.InitialDirectory = "C:\"
'archivos que se pueden abrir
.Filter = "Archivos Word (*.doc)|*.doc"
'indixe del archivo de lectura por defecto
.FilterIndex = 1
'restaurar el directorio de la apliación al cerrar el dialogo
.RestoreDirectory = True
End With

'si se encontro el archivo
If myOpenFile.ShowDialog() = DialogResult.OK Then
'abrir el archivo
myStream = myOpenFile.OpenFile()
'si no es nulo
If Not (myStream Is Nothing) Then
'que desamos hacer con el archivo
'Me.LeerXml(myStream)
myStream.Close()
End If
End If
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:Abrir Word desde Visual.net

Publicado por Maria (6 intervenciones) el 16/02/2007 08:44:45
Nadie sabe como se puede hacer....????'
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:Abrir Word desde Visual.net

Publicado por Hugin (83 intervenciones) el 16/02/2007 15:30:41
Hola Maria, Hay dis formas de hacerlo...alli te digo como..

'Con la siguiente linea siempre estarias obilgada a crear la carpeta MisArchivosWORD en la unidad D y el codigo seria el que sigue

Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click
Process.Start("D:\MisArchivosWORD\" & me.txtNombreArchivo.text & " ")
End Sub

' la otra forma seria y la que yo Usaria es esta
'tienes que asegurarte que al generar el instalador se cree la carpeta 'MIS_ARCHIVOS_WORD o el nombre que tu prefieras para qeu la aplicacion siempre busque dentro esta carpeta los archivos que deseas abrir

Dim rutaArchivo As String
Private Sub btnAbrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbrir.Click
rutaArchivo = My.Application.Info.DirectoryPath.Substring(0, My.Application.Info.DirectoryPath.LastIndexOf("\")) & "\MIS_ARCHIVOS_WORD" & "\" & Me.txtNombre.Text & " "
Process.Start(rutaArchivo)
End Sub

bueno espero te sirva chao ah te envio a tu correo el ejemplo....
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:Abrir Word desde Visual.net

Publicado por maria (6 intervenciones) el 19/02/2007 12:50:04
Muchas gracias...
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:Abrir Word desde Visual.net

Publicado por Paola (1 intervención) el 28/02/2007 15:52:49
Hola vi tu articulo, pero todavia no me queda claro si eso lo puedo aplicar para un webform... necesito abrir un excel desde un boton, es una planilla estandar, solo es abrirlo .

Muchas gracias, Paola
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:Abrir Word desde Visual.net

Publicado por Maria (6 intervenciones) el 03/04/2007 12:28:42
Perdona por el retraso pero he probado y funciona asi tanto para word, excel y cualquier otro programa.

Private Sub cmdAsigna_Ubicacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAsigna_Ubicacion.Click
Dim myOpenFile As New OpenFileDialog
'dando las características al archivo que abriremos
With myOpenFile
'directorio inicial
.InitialDirectory = "C:\"
'archivos que se pueden abrir
.Filter = "Archivos Excel (*.xls)|*.xls"
'indice del archivo de lectura por defecto
.FilterIndex = 1
'restaurar el directorio de la apliación al cerrar el dialogo
.RestoreDirectory = True
End With

If myOpenFile.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = myOpenFile.OpenFile()
txtFichero_Path.Text = myOpenFile.FileName
End If
'si no es nulo
If Not (myStream Is Nothing) Then
myStream.Close()
End If
End Sub

Private Sub cmdCrearDocumento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCrearDocumento.Click
'si se encontro el archivo
Process.Start(txtFichero_Path.Text)
End Sub
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