在vb.net中将RichTextBox内容转换为Word而不会丢失格式

Imports Microsoft.Office.Interop.Word

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wordApp As New Word.Application
        Dim doc As Word.Document = wordApp.Documents.Add()
        Dim range As Word.Range = doc.Range()

        range.Text = RichTextBox1.Text
        range.Font.Name = RichTextBox1.Font.Name
        range.Font.Size = RichTextBox1.Font.Size
        range.ParagraphFormat.Alignment = RichTextBox1.SelectionAlignment

        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        range.InsertBreak(Word.WdBreakType.wdSectionBreakNextPage)
        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        range.InsertBreak(Word.WdBreakType.wdPageBreak)
        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        range.InsertBreak(Word.WdBreakType.wdColumnBreak)
        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        range.InsertBreak(Word.WdBreakType.wdLineBreak)
        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        range.InsertBreak(Word.WdBreakType.wdTextWrappingBreak)
        range.InsertParagraphAfter()
        range.Collapse(Word.WdCollapseDirection.wdCollapseEnd)

        wordApp.Visible = True
    End Sub
End Class