. " Haga clic en " Referencias ", a continuación, seleccione "Agregar ". Seleccionar ". NET " y haga clic en " DocumentFormat.OpenXml . " Haga clic en " Aceptar". Haga doble clic en " Button1 " para abrir la ventana de VB
4 Copia y pega el siguiente código en la parte superior del módulo de VB.NET a declarar los espacios de nombres : .
Importaciones System.IO Imports
DocumentFormat.OpenXml.Packaging
Importaciones DocumentFormat.OpenXml.Wordprocessing
5
Copia y pega el siguiente código en " Button1_Click " para definir la ruta y el documento abierto :
strDoc As String = "C: \\ docxFile.docx "
Dim txt As String
corriente dévil como secuencia = File.Open ( strDoc , FileMode.Open )
editar la siguiente línea de código y escriba la ruta y el nombre de su documento:
Dim strDoc As String = "C : \\ docxFile.docx "
Página 6
Copia y pega el siguiente para llamar al procedimiento a leer realmente el documento:
OpenAndAddToWordprocessingStream (corriente , txt )
Stream.Close ()
< br > 7
Copia y pega el siguiente para visualizar el texto leído en el cuadro de texto :
Me.TextBox1.Text = txt
8
Copia y pega el siguiente procedimiento para abrir el archivo DOCX y devolver el contenido leen :
Public Sub OpenAndAddToWordprocessingStream (corriente de ByVal como secuencia , ByRef txt As String )
Dim WordprocessingDocument Como WordprocessingDocument = WordprocessingDocument.Open (corriente , True)
cuerpo Dim As Cuerpo = wordprocessingDocument.MainDocumentPart.Document.Body
txt = body.InnerText.ToString
wordprocessingDocument.Close ()
End Sub
9 Pulse
"F5 " para ejecutar el programa , haga clic en " Button1 " para ejecutar el código.