Как сохранить открытый текстовый документ в vb.net

Question

Я пытаюсь создать надстройку для слова, которая сохраняет открытые документы. Я положил ленту и кнопку на нем. Ниже приведен код [обработчик нажатия кнопки], который я использую для сохранения текстового документа в определенном месте:

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, но этот документ не содержит никакого содержимого открытого документа; он просто создает новый файл документа.

Что я делаю не так? Обработчик событий на этой кнопке должен вести себя так же, как обработчик событий на стандартной кнопке сохранения 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