将RichTextBox保存在文本文件或Word文件中

Question

我是一个小型编码器，我需要帮助才能将2个RichTextBox数据保存在Word文件中

看这张照片

http://i.stack.imgur.com/N6dfW.png

Public Class Form2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    On Error Resume Next
    RichTextBox3.LoadFile("C:\Windows\Help\enter.txt", RichTextBoxStreamType.PlainText)
    RichTextBox1.LoadFile("C:\Windows\Help\out.txt", RichTextBoxStreamType.PlainText)
End Sub


 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Try
        Dim dlg As SaveFileDialog = New SaveFileDialog
        dlg.Title = "save"
        dlg.FileName = "log out " & DateString
        dlg.Filter = "Word (*.doc)|*.doc"
        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
        End If
    Catch ex As Exception : End Try
End Sub


Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim dlg As SaveFileDialog = New SaveFileDialog
        dlg.Title = "save"
        dlg.FileName = "log enter " & DateString
        dlg.Filter = "Word (*.doc)|*.doc"
        If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            RichTextBox3.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
        End If
    Catch ex As Exception : End Try
End Sub

我无法对图片上的按钮进行编码（（由箭头指示））

如果您需要源代码： https : //www.mediafire.com/?6du52ybx5d8vyts

希望对您有所帮助:(

谢谢

Answer 1

RichTextBoxStreamType.RichText导致文件以RTF格式保存，因此您可以使用.rtf扩展名进行命名，并且可以由Word读取。 您还可以使用扩展名为.txt的RichTextBoxStreamType.PlainText保存它，并且可以通过Word读取它。 没有自动的方法将其另存为.docx或.doc文件。

您可以像这样组合两个富文本框：

System.IO.File.WriteAllText(filename, RichTextBox1.rtf & vbcrlf & RichTextBox3.rtf)

System.IO.File.WriteAllText(filename, RichTextBox1.txt & vbcrlf & RichTextBox3.txt)