Wordt text in een richbox

[bonnowagt]

Hallo,

Hoe laad ik de text van een word document in een richtextbox.

Een txt file lees ik als volgt in:

   RichTextBox1.Text = My.Computer.FileSystem.ReadAllText("c:\contact direct v2\help.txt")

Dit betreft dan een help.txt file vanuit kladblok. Hoe doe ik dit met een wordfile

 

[edmoor]

Hier een voorbeeld:
http://www.dotnetperls.com/word-vbnet

 

[bonnowagt]

Ik heb nu de volgende code gevonden:

  Dim app As Application = New Application

        ' Open specified file.
        Dim doc As Document = app.Documents.Open("c:\contact direct v2\help.doc")

        ' Loop through all words.
        Dim count As Integer = doc.Words.Count

        For i As Integer = 1 To count
            ' Write word to screen.
            Dim text As String = doc.Words(i).Text
        Console.WriteLine("Word {0} = {1}", i, text)
        Next

Om dit in de richtextbox te krijgen heb ik:

Console.WriteLine("Word {0} = {1}", i, text) vervangen door het volgende:

   RichTextBox1.Text = ("Word {0} = {1}={1}, i, text")

Dit werkt echter niet. Het laatste nl. ,i,text wordt als fout aangegeven.

 

[edmoor]

Ik heb dat voorbeeld ook maar gevonden, maar maak er eens dit van:
RichTextBox1.Text = doc.Words(i).Text

 

[bonnowagt]

Had ik ook geprobeerd maar werkt niet
ook wel logisch want text werd eenr egel daarvoor al "gedimt"

 

[edmoor]

Ja, maar "text" zou een gereserveerd woord kunnen zijn.
Ik ga hem ook eens maken, kijken wat er gebeurd.

 

[bonnowagt]

Als ik het volegden doe:

MsgBox(doc.Words(i).Text)
RichTextBox1.Text = (doc.Words(i).Text)

dan krijg ik via msgbox wel alle 37 woorden te zien maar worden niet afgedrukt in de richtextbox

 

[edmoor]

Ik heb het zo gedaan:

    Private Sub ReadDoc()
        Dim oApp As Object, oDoc As Object, oWord As Object

        Dim sFile As String = "C:\Users\Ed\Documents\Test.docx"

        oApp = CreateObject("Word.Application", "")
        oDoc = oApp.Documents.Open(sFile)
        For Each oWord In oDoc.Range.Words
            RichTextBox1.AppendText(oWord.text)
        Next oWord

        oDoc.Close()
        oDoc = Nothing
        oApp.Quit()
        oApp = Nothing
    End Sub

 

[bonnowagt]

Hoi,

Werkt perfect onder 100 dankzeggingen een groet

 

[edmoor]

Graag gedaan