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

使用VBA宏代替使用VBScript，它将在进程中启动。使用“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，

詹姆斯

VbScript保存当前打开的Word文档

4 个答案: