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

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

1 个答案: