rtf in Word einfügen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Sarah.

    rtf in Word einfügen

    Hallo zusammen,

    ich häng mal wieder fest und komm leider trotz des Forums nicht weiter. ;(

    Ich habe eine Richtextbox mit einem formatierten Text.

    Dann hab ich eine Wordvorlage, die über Textmarken mit einfachen Strings gefüllt wird. jedoch muss an einer stelle auch der formatierte inhalt der RTB rein.

    Das krieg ich leider in keinster Weise nur ansatzweise hin. Entweder kommt der Text unformatiert oder als plumpe rtf.

    VB.NET-Quellcode

    1. Private Sub Word_schreiben()
    3. 'Vorlage kopieren
    4. IO.File.Copy(Vorlage, Pfad_DOC & TB_Nummer.Text & ".docx", True)
    5. ProgressBar1.Value = ProgressBar1.Value + 10
    7. 'Textmarker füllen
    8. Dim word As New Microsoft.Office.Interop.Word.Application
    9. Dim doc As Microsoft.Office.Interop.Word.Document
    10. Try
    11. doc = word.Documents.Open(Pfad_DOC & TB_Nummer.Text & ".docx")
    12. doc.Activate()
    13. doc.Bookmarks().Item("TB_Nummer").Range.Text = TB_Nummer.Text
    14. ProgressBar1.Value = ProgressBar1.Value + 5
    15. doc.Bookmarks().Item("TB_Titel").Range.Text = TB_Titel.Text
    16. ProgressBar1.Value = ProgressBar1.Value + 5
    17. doc.Bookmarks().Item("TB_Verfasser").Range.Text = TB_Verfasser.Text
    18. ProgressBar1.Value = ProgressBar1.Value + 5
    19. doc.Bookmarks().Item("TB_Verteiler").Range.Text = TB_Verteiler.Text
    20. ProgressBar1.Value = ProgressBar1.Value + 5
    21. doc.Bookmarks().Item("DTP_Datum").Range.Text = DTP_Datum.Value.ToString("dd.MM.yyyy")
    22. ProgressBar1.Value = ProgressBar1.Value + 5
    23. RTB.SelectAll()
    24. doc.Bookmarks().Item("RTB").Range.Text = RTB.SelectedRtf
    25. ProgressBar1.Value = ProgressBar1.Value + 5
    27. 'Neue Datei mit Datumsstempel speichern
    28. doc.SaveAs(Pfad_DOC & TB_Nummer.Text & "_" & DTP_Datum.Value.ToString("yyyy_MM_dd") & ".docx")
    29. 'als pdf speichern
    30. doc.SaveAs(Pfad_PDF & TB_Nummer.Text & ".pdf", WdSaveFormat.wdFormatPDF)
    31. ProgressBar1.Value = ProgressBar1.Value + 10
    32. doc.Close()
    34. 'Datei löschen
    35. IO.File.Delete(Pfad_DOC & TB_Nummer.Text & ".docx")
    36. ProgressBar1.Value = ProgressBar1.Value + 10
    38. 'pdf öffnen
    39. Process.Start(Pfad_PDF & TB_Nummer.Text & ".pdf")
    40. ProgressBar1.Value = ProgressBar1.Maximum
    42. Catch ex As Exception
    43. MessageBox.Show(ex.ToString)
    44. word.ActiveDocument.Close()
    45. End Try
    47. End Sub


    An Zeile 23/24 sollte die RTB eingefügt werden.

    Vielleicht kann mir ja jemand auf die Sprünge helfen.

    Vielen lieben Dank schon mal und

    Liebe Grüße
    Sarah

    @Sarah Was passiert da?
    Was erwartet Word an dieser Stelle?
    Gibt es RTF-Marken in Word?
    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!

    Sarah schrieb:

    Gibt es da was spezielles?
    Keine Ahnung, ich stell einfach passende Fragen.
    Ich fragte, was passiert, nicht aber was nicht passiert. ;)
    Es wäre schön, wenn Du von so einer missglückten Einfügung nen Screenshot posten könntest.
    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!

    @Sarah
    So wie ich das -> stackoverflow.com/a/35632661 verstehe, benötigt Word einen Konverter, um RTF in ein Dokument zu integrieren.
    Dieser Konverter wird nur ausgeführt, wenn
    1. Inhalte aus der Zwischenablage eingefügt werden,
    oder
    2. eine Datei geöffnet oder eingefügt wird.

    Mögliche Lösungen siehe hier -> stackoverflow.com/a/50835453
    oder hier -> stackoverflow.com/a/55503862

    @Sarah Genau das hatte ich befürchtet, der RTF-String wird als Text-String interpretiert.
    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!

    Vorausgesetzt du kannst den farbig markierten Teil in die Zwischenablage kopieren (sollte gehen ;) )

    Dann kannst du mittels:

    VB.NET-Quellcode

    1. ​doc.Range().PasteAndFormat(Microsoft.Office.Interop.Word.WdRecoveryType.wdFormatOriginalFormatting)


    das auch exakt so wieder einfügen.

    Zur Demo: Ich habe in einem RTF-Doc einen Text geschrieben, den wild formatiert und ihn markiert und mittels STRG+C in die Zwischenablage gesteckt (das inkludiert das Format). Und danach mittels dieses Codes oben automatisch eingefügt. Klappt :)

    Yeah.... vielen vielen Dank! ... Ihr seid super!

    Ich schaffs jetzt den formatieren Text in Word einzufügen. :thumbsup:
    Im Moment wird noch das ganze Dokument damit überschrieben, aber ich denk das krieg ich noch hin.

    hier die Umsetzung:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Word_schreiben()
    3. 'Vorlage kopieren
    4. IO.File.Copy(Vorlage, Pfad_DOC & TB_Nummer.Text & ".docx", True)
    5. ProgressBar1.Value = ProgressBar1.Value + 10
    7. 'Textmarker füllen
    8. Dim RTB_Datei As String = Pfad_RTB & TB_Nummer.Text & ".txt"
    9. Dim word As New Microsoft.Office.Interop.Word.Application
    10. Dim doc As Microsoft.Office.Interop.Word.Document
    11. Try
    12. doc = word.Documents.Open(Pfad_DOC & TB_Nummer.Text & ".docx")
    13. doc.Activate()
    14. doc.Bookmarks().Item("TB_Nummer").Range.Text = TB_Nummer.Text
    15. ProgressBar1.Value = ProgressBar1.Value + 5
    16. doc.Bookmarks().Item("TB_Titel").Range.Text = TB_Titel.Text
    17. ProgressBar1.Value = ProgressBar1.Value + 5
    18. doc.Bookmarks().Item("TB_Verfasser").Range.Text = TB_Verfasser.Text
    19. ProgressBar1.Value = ProgressBar1.Value + 5
    20. doc.Bookmarks().Item("TB_Verteiler").Range.Text = TB_Verteiler.Text
    21. ProgressBar1.Value = ProgressBar1.Value + 5
    22. doc.Bookmarks().Item("DTP_Datum").Range.Text = DTP_Datum.Value.ToString("dd.MM.yyyy")
    23. ProgressBar1.Value = ProgressBar1.Value + 5
    24. 'RTB über Zwischenspeicher in Word einfügen
    25. Clipboard.SetText(IO.File.ReadAllText(RTB_Datei, System.Text.Encoding.Default), TextDataFormat.Rtf)
    26. doc.Range().PasteAndFormat(Microsoft.Office.Interop.Word.WdRecoveryType.wdFormatOriginalFormatting)
    28. 'doc.Bookmarks().Item("RTB").Range.Text = RTB.SelectedRtf()
    29. ProgressBar1.Value = ProgressBar1.Value + 5
    31. 'Neue Datei mit Datumsstempel speichern
    32. doc.SaveAs(Pfad_DOC & TB_Nummer.Text & "_" & DTP_Datum.Value.ToString("yyyy_MM_dd") & ".docx")
    33. 'als pdf speichern
    34. doc.SaveAs(Pfad_PDF & TB_Nummer.Text & ".pdf", WdSaveFormat.wdFormatPDF)
    35. ProgressBar1.Value = ProgressBar1.Value + 10
    36. doc.Close()
    38. 'Datei löschen
    39. IO.File.Delete(Pfad_DOC & TB_Nummer.Text & ".docx")
    40. ProgressBar1.Value = ProgressBar1.Value + 10
    42. 'pdf öffnen
    43. Process.Start(Pfad_PDF & TB_Nummer.Text & ".pdf")
    44. ProgressBar1.Value = ProgressBar1.Maximum
    46. Catch ex As Exception
    47. MessageBox.Show(ex.ToString)
    48. word.ActiveDocument.Close()
    49. End Try
    51. End Sub


    Wünsch Euch allen ein schönes Wochenende!

    Liebe Grüße aus dem Allgäu
    Bilder

    • Unbenannt.JPG

      43,34 kB, 971×488, 65 mal angesehen