如何在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