程序代码：

 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