如何保存活动的“文件”；字；VBScript中的文档？

这里有一个小的VBS脚本，可以帮助我在MS“Word”2003中将新行附加到表中：

它工作得很好，但不能保存任何东西。我希望它保存执行的更改

通过在“Word”中记录宏的方法，我获得了保存活动“Word”文档的宏命令：

ActiveDocument.Save

因此，我决定将此宏附加到上面的VBS脚本：

 Set wd = CreateObject("Word.Application")

    wd.Visible = True

    Set doc = wd.Documents.Open ("c:\addtotable.doc")

    Set r = doc.Tables(1).Rows.Add

    aa = Split("turtle,dog,rooster,maple", ",")

    For i = 0 To r.Cells.Count - 1
      r.Cells(i + 1).Range.Text = aa(i)
    Next

     ActiveDocument.Save

---

但这并不能拯救任何东西。我做错了什么？

在做了这些更改后，您是否已经尝试过调用

doc.Save

？如果这不起作用：

问题在于，

ActiveDocument

不会像在Word的VBA中那样自动引用您认为它在VBScript中所做的事情

尝试将新变量设置为活动文档，如下所示：

Dim activeDoc
Set activeDoc = wd.ActiveDocument
activeDoc.Save

---

在进行这些更改后，您是否已尝试调用

doc.Save

？如果这不起作用：

问题在于，

ActiveDocument

不会像在Word的VBA中那样自动引用您认为它在VBScript中所做的事情

尝试将新变量设置为活动文档，如下所示：

Dim activeDoc
Set activeDoc = wd.ActiveDocument
activeDoc.Save

---

我认为您必须使用

ActiveDocument.SaveAs（“C:\addtotable.doc”）.Save

的任何文档

SaveAs

接受第二个参数，该参数指定保存格式。参数的粘贴bin

我认为您必须使用

ActiveDocument.SaveAs（“C:\addtotable.doc”）.Save

的任何文档

SaveAs

接受第二个参数，该参数指定保存格式。参数的粘贴栏

谢谢AndreiM。现在它正是我想要的！谢谢你，安德烈。现在它正是我想要的！