程序代码：

 Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Dim objword As New word.application
        objword.Visible = True
        objword.Documents.Add()
        objword.Selection.TypeText(RichTextBox2.Text)
        objword = Nothing
    End Sub

程序代码：

Private Sub Button19_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim StringCopyFromWord As String = ""
            Dim wd As New Microsoft.Office.Interop.Word.Application
            wd.Documents.Open(OpenFileDialog1.FileName)
            wd.Selection.WholeStory()
            wd.Selection.Copy()

            RichTextBox2.Paste()
            StringCopyFromWord = RichTextBox2.Text
            wd.Quit()
        End If
        OpenFileDialog1.FileName = ""
    End Sub

程序代码：

  '预先添加 Microsoft.Office.Interop.Word.Application 的引用哦  
       If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Dim StringCopyFromWord As New Microsoft.Office.Interop.Word.Application
            StringCopyFromWord.Documents.Open(OpenFileDialog1.FileName)
            StringCopyFromWord.Selection.WholeStory()
            StringCopyFromWord.Selection.Copy()
            RichTextBox1.Text = Clipboard.GetText(System.Windows.Forms.TextDataFormat.Text) '去除原WORD格式，纯文本，就用这一句
            'RichTextBox1.Paste()'保存原WORD格式
            StringCopyFromWord.Quit()
        End If