[Terbaru] Cara Membaca Teks File Word VB.NET

Assalamu'alaikum wr.wb.

Hari ini admin akan mengupload source code membaca teks dari file microsoft word dan dimasukkan kedalam richtextbox. Biasanya kita hanya membaca file txt nah sekarang admin bagikan bagaimana caranya membaca teks dari ms.word. Ingat "Hanya Teks" :) kalau mau tau cara membaca gambarnya juga, komen aja di bawah :)

Penampakan :

Bagi yang sayang kuota, ne source code nya :

Imports word = Microsoft.Office.Interop.Word
Public Class Form1
    Dim doc As word.Document
    Dim app As word.Application
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        doc = New word.Document
        app = New word.Application
        OpenFileDialog1.Filter = "Office|*.doc;*.docx"
        OpenFileDialog1.FileName = ""
        Dim msgResult As MsgBoxResult = Me.OpenFileDialog1.ShowDialog
        If msgResult = MsgBoxResult.Ok Or msgResult = MsgBoxResult.Yes Then
            doc = app.Documents.Open(Me.OpenFileDialog1.FileName)
            Me.TextBox1.Text = Me.OpenFileDialog1.FileName
            RichTextBox1.Text = doc.Range.Text            
            app.Quit()            
        End If
    End Sub
End Class

Kalau ingin membuat project baru dengan kode di atas, terlebih dahulu add reference "Microsoft.Interop.Word", syaratnya adalah office sudah terinstal.

Membaca Teks File Word VB.NET