保存RichTextBox的在文本文件或word文件

Question

IAM小编码器，我需要帮助，去拯救RichTextBox的数据的2字文件

看这个产品图

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)