Question

VB.net 怎样将richtextbox中带格式的文本和图片导入到word中？

不要打开word，用什么全选复制粘贴之类的方法。我想要通过range对象直接将richtextbox中的数据原封不动的输出到word中。

Answer 1

别那么费事,

直接用 richbox 的 save方法把内容存放在一个临时的 rtf文件

RichTextBox1.SaveFile("e:\temp.rtf") '因为word是可以直接打开rtf文件的

然后用 Documents打开这个临时对象

Documents.Open ("e:\temp.rtf")

最后再另存为 word文件

ActiveDocument.SaveAs ("newname.doc",100, False, "", True, "",False, False,False, False, False)

'注意第二个参数是100 表示doc格式

完整代码如下:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim doc As Object, docword As Object
        RichTextBox1.SaveFile("e:\1.rtf")
        Doc = CreateObject("Word.Application")
        DocWord = doc.Documents.Open("e:\1.rtf")
        doc.ActiveDocument.SaveAs("newname.doc", 100, False, "", True, "", False, False, False, False, False)
        doc.quit()
        doc = Nothing
        docword = Nothing
    End Sub

追问

那能不能将这个RTF打开后，添加到现有的WORD最后？

追答

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim doc As Object, docword As Object
        RichTextBox1.SaveFile("e:\1.rtf")
        doc = CreateObject("Word.Application")
        docword = doc.Documents.Open("e:\newname.doc") '打开要向那个文件添加
        doc.Selection.EndKey(6) '跳转到结尾
        doc.Selection.InsertFile("e:\1.rtf", "", False, False, False) '插入保存的内容
        doc.ActiveDocument.SaveAs("e:\newname.doc", 100, False, "", True, "", False, False, False, False, False)
        doc.quit()
        doc = Nothing
        docword = Nothing
    End Sub