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 並初始化變量，但這是工作代碼。

高溫下，

詹姆士