如何用vb.net复制粘贴一个word的所有内容到另一个word

问题描述

我已经试了DimWordDocAsNewMicrosoft.Office.Interop.Word.ApplicationWordDoc.Documents.Open("d:Hello.docx")'把你想複製的檔案路踁放在這裡WordDoc.Selection.WholeStory()WordDoc.Selection.Copy()RichTextBox1.Paste()WordDoc.Quit()vb.net但提示我，并没有WholeStory

解决方案

解决方案二：
加上一点延迟看看是否可以贴上，看下剪贴板有没有内容。
解决方案三：
WordDoc.Documents.Open("d:Hello.docx")

WordDoc是wordapplication，你还缺一个WordDocument对象。帮你稍微改一下DimWordDocAsWord.Document,WordAppAsMicrosoft.Office.Interop.Word.ApplicationWordDoc=WordApp.Documents.Open("d:Hello.docx")'把你想複製的檔案路踁放在這裡WordDoc.Selection.WholeStory()WordDoc.Selection.Copy()RichTextBox1.Paste()WordDoc.Quit()

解决方案四：
操作结束以后的代码忘改了相应地改成WordDoc.Close()WordApp.Quit()