Eigenschappen. " Klik op " Referenties , " en selecteer vervolgens " toevoegen . " Selecteer " . NET " en klik op " DocumentFormat.OpenXml . " Klik op " OK . " Dubbelklik op " Button1 " om het venster VB de volgende code opent
Kopieer 4 en plakken in de top van uw VB.NET module om de namespaces te verklaren : .
Imports
System.IO
Invoer
DocumentFormat.OpenXml.Packaging
Imports DocumentFormat.OpenXml.Wordprocessing
Copy
5 en plak de volgende code onder " Button1_Click " aan het definiëren pad en document te openen :
Dim strDoc
As String = " C : \\ docxFile.docx "
Dim txt
als Koord
Dim beek
Zoals stroom = File.open ( strDoc , FileMode.Open ) op Twitter
Bewerk de volgende regel code en typ het pad en de naam voor uw document :
Dim strDoc
As String = " C : \\ docxFile.docx "
Kopieer en plak de volgende om de procedure te bellen om het document daadwerkelijk te lezen 6 :
OpenAndAddToWordprocessingStream
( stroom , txt )
stream.Close
( ) op < br >
Kopieer 7 en plak de volgende om de tekst te lezen in het tekstvak weer te geven :
Me.TextBox1.Text = txt
Copy
8 en plak de volgende procedure aan het DOCX -bestand te openen en de terugkeer van de inhoud te lezen :
Public Sub OpenAndAddToWordprocessingStream ( ByVal stroom Zoals streamen , ByRef txt As String ) op Twitter
Dim wordprocessingDocument Zoals wordprocessingDocument = wordprocessingDocument.Open ( stroom , True )
Dim body
Zoals body
txt = body.InnerText.ToString
wordprocessingDocument.Close ( ) op
End Sub
= wordprocessingDocument.MainDocumentPart.Document.Body
Druk op " F5 " 9 om het programma uit te voeren , en klik op ' Button1 "om de code uit te voeren .
