Worddatei in Richtextbox einlesen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Lupusverlach.

    Worddatei in Richtextbox einlesen

    Tach auch,

    ich würde gerne eine Worddatei in eine Richtextbox einlesen, jedoch soll die Formatierung dabei erhalten bleiben.
    Mit meinem Code jedoch geht das nicht. In der Richtextbox steht nur Plaintext.
    Was mache ich hier falsch?

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Office.Interop
    3. Public Class Form1
    4. Public strPfad As String = Replace(CurDir(), "Wordlesen\bin\Debug", "")
    5. Private Sub CmdRTFLesen_Click(sender As Object, e As EventArgs) Handles CmdRTFLesen.Click
    6. RichTextBox1.LoadFile(strPfad & "worddatei.rtf")
    7. End Sub
    8. Private Sub CmdWordLesen_Click(sender As Object, e As EventArgs) Handles CmdWordLesen.Click
    9. Dim objWord As New Word.Application()
    10. Dim objDocument As Word.Document
    11. Dim WrdText As String
    12. objWord = DirectCast(CreateObject("Word.Application"), Word.Application)
    13. objWord.Visible = False
    14. objDocument = objWord.Documents.Open(strPfad & "worddatei.doc", , True)
    15. WrdText = objDocument.Content.Text
    16. RichTextBox1.Text = WrdText.ToString
    17. objDocument.Close()
    18. objWord.Application.Quit()
    19. End Sub
    20. End Class
    Dateien

    • Wordlesen.zip

      (96,36 kB, 78 mal heruntergeladen, zuletzt: )
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    @Lupusverlach Du musst der RTB sagen, dass sie einen Rich-Text einlesen soll:

    VB.NET-Quellcode

    1. RichTextBox1.LoadFile("PATH", RichTextBoxStreamType.RichText)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallöschen,

    das funktioniert aber nur bei einer echten RTF Datei. :(

    RodFromGermany schrieb:

    Du musst der RTB sagen, dass sie einen Rich-Text einlesen soll:

    Wenn ich damit eine Worddatei einlesen möchte bekomme ich die Fehlermeldung System.ArgumentException: Ungültiges Dateiformat.
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    @Lupusverlach Eine RTB kann keine Word-Datei lesen, sondern nur PlaunText und RTF.
    Du kannst ja mal probieren, ob Du das über die Zwischenablage lösen kannst.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany hat dir da leider schon die Antwort gegeben, die du dir selbst auch schon gegeben hattest. Zitat : Mit meinem Code jedoch geht das nicht. In der Richtextbox steht nur Plaintext.
    Schau mal auf folgender Seite nach, da wird dir erklärt warum es nicht geht. add-in-express.com/creating-ad…document-content-objects/

    RodFromGermany schrieb:

    Du kannst ja mal probieren, ob Du das über die Zwischenablage lösen kannst.

    Die Lösung hier ging schneller:

    petaod schrieb:

    Öffne die Word-Datei, speichere sie im RTF-Format, öffne die RTF-Datei und lade sie in die RTB.


    So sieht mein Code nun aus:

    VB.NET-Quellcode

    1. Private Sub CmdWordLesen_Click(sender As Object, e As EventArgs) Handles CmdWordLesen.Click
    2. Dim objWord As New Word.Application()
    3. Dim objDocument As Word.Document
    4. objWord = DirectCast(CreateObject("Word.Application"), Word.Application)
    5. objWord.Visible = False
    6. objDocument = objWord.Documents.Open(strPfad & "worddatei.docx", , True)
    7. objDocument.SaveAs2(FileName:=strPfad & "word.rtf", FileFormat:=6)
    8. objDocument.Close()
    9. objWord.Application.Quit()
    10. RichTextBox1.LoadFile(strPfad & "word.rtf", RichTextBoxStreamType.RichText)
    11. If My.Computer.FileSystem.FileExists(strPfad & "word.rtf") = True Then
    12. My.Computer.FileSystem.DeleteFile(strPfad & "word.rtf")
    13. End If
    14. End Sub


    Die RichTextBox1 ist hängt jedoch an einer BindingSource. Also in der Anwendung wo ich sie dann brauche, nicht hier im Beispiel.
    Wenn ich dort speichere oder einfach auch nur einen Datensatz weiter gehe (ohne zu speichern) und dann wieder zurück. Ja dann ist die Formatierung vollständig wieder weg und nur PalinText zu sehen.

    Was läuft hier schief?

    Gespeichert wird hier so:

    VB.NET-Quellcode

    1. Private Sub BtnSpeichern_Click(sender As Object, e As EventArgs) Handles BtnSpeichern.Click
    2. Try
    3. Me.Validate()
    4. Me.projekteBindingSource.EndEdit()
    5. Me.projekteTableAdapter.Update(PVDataSet.projekte)
    6. Catch ex As Exception
    7. MsgBox("Update failed")
    8. End Try
    9. End Sub
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL

    Habs hinbekommen :D

    Der Code sieht nun so aus

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.Office.Interop
    3. Public Class Form1
    4. Public strPfad As String = Replace(CurDir(), "Wordlesen\bin\Debug", "") ' Für die Testzwecke wird der Ort angegeben wo die Testworddateien liegen.
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. 'TODO: Diese Codezeile lädt Daten in die Tabelle "WordreadDataSet.RTFInhalt". Sie können sie bei Bedarf verschieben oder entfernen.
    8. Me.RTFInhaltTableAdapter.Fill(Me.WordreadDataSet.RTFInhalt)
    10. Dim Skill As New Binding("Rtf", BSRichText, "Skill", True)
    11. Me.RichTextBox1.DataBindings.Add(Skill)
    13. End Sub
    15. ' Einlesen einer RTF Datei
    16. Private Sub CmdRTFLesen_Click(sender As Object, e As EventArgs) Handles CmdRTFLesen.Click
    17. RichTextBox1.LoadFile(strPfad & "worddatei.rtf", RichTextBoxStreamType.RichText)
    18. End Sub
    20. ' Einlesen einer Worddatei. Jedoch kann VB.NET diese nicht einlesen
    21. ' Die Wortdatei öffnen und als RTF speichern. Das kann dann gelesen werden.
    22. ' Die RTF wird hier nach dem Einlesen wieder gelöscht
    23. Private Sub CmdWordLesen_Click(sender As Object, e As EventArgs) Handles CmdWordLesen.Click
    24. Dim objWord As New Word.Application()
    25. Dim objDocument As Word.Document
    27. objWord = DirectCast(CreateObject("Word.Application"), Word.Application)
    28. objWord.Visible = False
    29. objDocument = objWord.Documents.Open(strPfad & "worddatei.docx", , True)
    30. objDocument.SaveAs2(FileName:=strPfad & "word.rtf", FileFormat:=6)
    31. objDocument.Close()
    32. objWord.Application.Quit()
    34. RichTextBox1.LoadFile(strPfad & "word.rtf", RichTextBoxStreamType.RichText)
    36. If My.Computer.FileSystem.FileExists(strPfad & "word.rtf") = True Then
    37. My.Computer.FileSystem.DeleteFile(strPfad & "word.rtf")
    38. End If
    39. End Sub
    41. 'Speichern der Datensätze.
    42. ' Hier muss der Bezug geschaffen werden, das RTF auch gepsiechert werden kann
    43. Private Sub BtnSpeichern_Click(sender As Object, e As EventArgs) Handles BtnSpeichern.Click
    44. Dim intPos As Integer = BSRichText.Position ' Aktuelle Position auslesen
    45. Me.Validate()
    46. Me.BindingContext(BSRichText).EndCurrentEdit() ' Ein Bezug zu RTF musste noch rein
    47. Me.RTFInhaltTableAdapter.Update(WordreadDataSet.RTFInhalt)
    49. ' Der einfacherhalber wird der TableAdapter einfach nur neu geladen
    50. Me.RTFInhaltTableAdapter.Fill(Me.WordreadDataSet.RTFInhalt)
    51. Me.BSRichText.Position = intPos ' Zurück zur akutellen Position
    52. End Sub
    54. Private Sub Button_Click(sender As Object, e As EventArgs) Handles BtnPrevious.Click, BtnNext.Click, BtnLast.Click, BtnFirst.Click
    55. Select Case True
    56. Case sender Is BtnPrevious : BSRichText.MovePrevious()
    57. Case sender Is BtnNext : BSRichText.MoveNext()
    58. Case sender Is BtnLast : BSRichText.MoveLast()
    59. Case sender Is BtnFirst : BSRichText.MoveFirst()
    60. End Select
    61. End Sub
    62. End Class


    Verbesserungsvorschläge willkommen. Will ja was lernen.
    Dateien

    • Wordlesen.zip

      (169,84 kB, 85 mal heruntergeladen, zuletzt: )
    Mit freundlichen Dinges

    Lupus
    P.S: bei allen meine Fragen beziehen sich auf das arbeiten mit Visual Studio 2019 auf Win 10/64 bit und MySQL