如何在vb.net中保存打开的word文档

Question

我只是想让保存打开的文档的单词加载项保存。我在上面制作了功能区和按钮。以下是我用于在某个位置保存word文档的地方：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click 
     Dim ThisApplication As Word.Application 
     ThisApplication.ActiveDocument.SaveAs("C:\email") 
     ThisApplication.Quit() 
     ThisApplication= Nothing 
     End Sub 

但当我这个按钮我只是做了email.doc点击，但该文件不包含打开的文档中的任何内容，它只是提出了新的doc文件。

我在做什么错了？此按钮上的事件需要与标准Word保存按钮上的事件相同，所以我该如何做到这一点？

Answer 1

我只能想象，也许你需要先创建一个对象来表示文档本身。请尝试以下操作：

Dim ThisApplication As Word.Application 
Dim oDoc As Word.Document = ThisApplication.ActiveDocument 
oDoc.SaveAs("C:\email") 
oDoc.Close()   
ThisApplication.Quit() 
oDoc = Nothing 
ThisApplication = Nothing