RichTextBox保存或读取Word文档时可以使用RTF格式，直接写入或读出带格式文本。

Dim sw As IO.StreamWriter = New IO.StreamWriter(name, True)
sw.Write(RichTextBox1.Rtf)
sw.Close()

    上边几行代码可以实现将RichTextBox1中的内容写入名为name的文件。

    读取时也可以使用RichTextBox的属性方法。

RichTextBox1.LoadFile(OpenFileDialog1.FileName)

    先定义一个打开文件对话框，选择文件后使用LoadFile来载入带格式文本。

    保存和读取时的字符格式必须相同。