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 ” object 将授予您访问当前 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...

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

高温下，

詹姆士