VbScript 保存当前打开的 Word 文档

Question

嗨 我想要 vbscript 保存当前打开的 Word 文档，我正在使用代码：

 Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add()
    objDoc.Save

但是它打开一个新的word文档，然后要求我保存。

我的要求是我在单击它时创建了一个菜单按钮，如果文档已保存在应保存所做更改的位置，或者如果不是，则应询问我路径并将其保存在那里

谢谢 创作者

Answer 1

objWord.Documents.Add 表示创建一个新文档。

尝试： objDoc = objWord.ActiveDocument

Answer 2

尝试添加以下代码：

Dim activeDoc
Set activeDoc = objWord.ActiveDocument
activeDoc.Save

Answer 3

不要使用 VBScript，而是使用 VBA 宏，该宏将在进程中启动。使用“

Application

”对象将授予您对当前 Word 实例的访问权限，而

ActiveDocument

（

Application.ActiveDocument

的缩写）将授予您对当前文档的访问权限。

Answer 4

我必须做同样的事情，这就是我使用的：

' Create the File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Check for directory folder.
If objFSO.FolderExists(strDirectory) Then
        Set objFolder = objFSO.GetFolder(strDirectory)
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = True

        Set objDoc = objWord.Documents.Open(objFile.Path)
        objDoc.SaveAs objFSO.BuildPath(strDirectory, objFSO.GetFileName(objFile.Path))
        objDoc.Close
etc...

您必须填写其余部分并初始化变量，但这是工作代码。

HTH，

詹姆斯