title: Save RichTextBox At text file or word file
body: <p>iam a small coder and i need help to save 2 of RichTextBox data in word file</p>
  
  <p>Look At This Pic </p>
  
  <p><a href="http://i.stack.imgur.com/N6dfW.png" rel="nofollow">http://i.stack.imgur.com/N6dfW.png</a></p>
  
  <pre><code>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 " &amp; 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 " &amp; 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
  </code></pre>
  
  <p>i cant coder the button at the pic (( Indicated by the arrow ))</p>
  
  <p>If You Need The Source Code : <a href="https://www.mediafire.com/?6du52ybx5d8vyts" rel="nofollow">https://www.mediafire.com/?6du52ybx5d8vyts</a></p>
  
  <p>i hope help :(</p>
  
  <p>Thanks</p>