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.
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
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
- Private Sub Word_schreiben()
- 'Vorlage kopieren
- IO.File.Copy(Vorlage, Pfad_DOC & TB_Nummer.Text & ".docx", True)
- ProgressBar1.Value = ProgressBar1.Value + 10
- 'Textmarker füllen
- Dim word As New Microsoft.Office.Interop.Word.Application
- Dim doc As Microsoft.Office.Interop.Word.Document
- Try
- doc = word.Documents.Open(Pfad_DOC & TB_Nummer.Text & ".docx")
- doc.Activate()
- doc.Bookmarks().Item("TB_Nummer").Range.Text = TB_Nummer.Text
- ProgressBar1.Value = ProgressBar1.Value + 5
- doc.Bookmarks().Item("TB_Titel").Range.Text = TB_Titel.Text
- ProgressBar1.Value = ProgressBar1.Value + 5
- doc.Bookmarks().Item("TB_Verfasser").Range.Text = TB_Verfasser.Text
- ProgressBar1.Value = ProgressBar1.Value + 5
- doc.Bookmarks().Item("TB_Verteiler").Range.Text = TB_Verteiler.Text
- ProgressBar1.Value = ProgressBar1.Value + 5
- doc.Bookmarks().Item("DTP_Datum").Range.Text = DTP_Datum.Value.ToString("dd.MM.yyyy")
- ProgressBar1.Value = ProgressBar1.Value + 5
- RTB.SelectAll()
- doc.Bookmarks().Item("RTB").Range.Text = RTB.SelectedRtf
- ProgressBar1.Value = ProgressBar1.Value + 5
- 'Neue Datei mit Datumsstempel speichern
- doc.SaveAs(Pfad_DOC & TB_Nummer.Text & "_" & DTP_Datum.Value.ToString("yyyy_MM_dd") & ".docx")
- 'als pdf speichern
- doc.SaveAs(Pfad_PDF & TB_Nummer.Text & ".pdf", WdSaveFormat.wdFormatPDF)
- ProgressBar1.Value = ProgressBar1.Value + 10
- doc.Close()
- 'Datei löschen
- IO.File.Delete(Pfad_DOC & TB_Nummer.Text & ".docx")
- ProgressBar1.Value = ProgressBar1.Value + 10
- 'pdf öffnen
- Process.Start(Pfad_PDF & TB_Nummer.Text & ".pdf")
- ProgressBar1.Value = ProgressBar1.Maximum
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- word.ActiveDocument.Close()
- End Try
- 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