Properties . " Klicka " Hänvisar till " och välj sedan " Lägg till ". Välj " . NET " och klicka på " DocumentFormat.OpenXml . " Klicka på " OK . " Dubbelklicka på " Button1 " för att öppna VB fönstret
4 Kopiera och klistra in följande kod i den absoluta toppen av din VB.NET modul att förklara namnutrymmena : .
Import System.IO
Import DocumentFormat.OpenXml.Packaging
Import DocumentFormat.OpenXml.Wordprocessing
5
Kopiera och klistra in följande kod under " Button1_Click " för att definiera väg och dokument till öppet :
Dim strDoc As String = " C : \\ docxFile.docx "
Dim txt As String
Dim ström Eftersom Stream = File.Open ( strDoc , FileMode.Open ) katalog
Redigera följande kodrad och ange sökvägen och namnet på ditt dokument :
Dim strDoc As String = " C : \\ docxFile.docx "
6
Kopiera och klistra in följande för att ringa proceduren att faktiskt läsa dokumentet :
OpenAndAddToWordprocessingStream ( stream , txt ) katalog
stream.Close ( ) katalog
7
Kopiera och klistra in följande för att visa texten läses i textrutan kontroll :
Me.TextBox1.Text = txt
8
Kopiera och klistra in följande procedur att öppna docx -filen och returnera innehållet läs :
Public Sub OpenAndAddToWordprocessingStream ( ByVal ström Eftersom Stream , ByRef txt As String ) katalog
Dim wordprocessingDocument som wordprocessingDocument = wordprocessingDocument.Open ( stream , sant)
Dim kroppen som Body = wordprocessingDocument.MainDocumentPart.Document.Body
txt = body.InnerText.ToString
wordprocessingDocument.Close ( ) katalog
End Sub
9
Tryck " F5 " för att köra programmet , klicka sedan på " Button1 " för att köra koden .