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
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


0