让我开始编程和调试 Microsoft Office 自动化

Question

我正在使用 Microsoft Office 2003 并创建一堆模板文档来标准化某些任务。我在 Superuser.com 上问了这个问题没有得到回应，所以我认为这太程序化了，希望我在这里能有更好的运气。

我需要自动化使用一堆 Office（主要是 Word）模板的工作流程。我想要的是在共享驱动器上的“My Foo Bar Stuff”中拥有“My Template Foo.dot”和“My Template Bar.dot”等，并让用户双击模板来创建新的 Foo 或酒吧。

我真正想要的是用户双击 Foo 模板，并提示输入与他们的任务相关的几个项目（例如项目编号），并让模板中的脚本更改“保存”将的名称默认为“Foo for Project 1234.doc”。

我在 Google 网上论坛< /a> 并得到了一个有效的答案......一段时间。然后，当我通过双击模板创建新文档时，我的 AutoNew 宏停止运行。我不知道为什么或如何调试它。

在类模块/此应用程序中，我有：

Sub AutoNew()
    Dim Project As String
    Project = InputBox("Enter the Project Number")
    ActiveDocument.SaveAs "Project " & Project & " Notes.doc"
End Sub

在 Microsoft Word 对象/ThisDocument 中，我有：

Private Sub Document_New()

End Sub

我真的不知道为什么或从哪里来。

在“工具/宏安全性”中...我将安全级别设置为“低”。

我是一名拥有 25 年以上经验的软件工程师，但完全是办公自动化菜鸟。欢迎提供具体的解决方案和“这就是如何自动化 Word”常见问题解答。谢谢。

---

更新：如果我创建一个新模板（新建...，空白文档，另存为“My New Template.dot”），并插入 AutoNew() 宏，有用。那么是什么阻碍了它在我现有的模板上工作呢？

更新 2： 从旧模板中删除模块和功能并将其添加回来也可以。

Answer 1

您可以将模板附加到已保存的文档中，以便访问相关模板中包含的宏。

您可以使用 Document 对象（即 ActiveDocument）的 AttachedTemplate 属性来完成此操作。
请注意，我自己没有尝试过。

Sub AutoNew()
   Dim Project As String
   Project = InputBox("Enter the Project Number")
   ActiveDocument.SaveAs "Project " & Project & " Notes.doc"

   ActiveDocument.AttachedTemplate = "\\path\to\templates\My Template Foo.dot"

End Sub

请参阅 MSDN - Word 2003 VBA 语言参考 - AttachedTemplate 属性< /a>

希望有帮助。

Answer 2

检查该宏是否仍包含在您的模板中。这听起来很愚蠢，但它也发生在我身上，在 Word 2003 中，在以下情况下：

1. 创建一个包含宏的模板，
   一切都很好
2. 创建一个新的文档文件基于
   宏，宏开始
3. 注意我可以改进模板
   到处做一点，我在
   2) 中创建的文件和
4. .DOT 中的 SaveAs .DOT 宏消失了！

为什么？因为存储在 .DOT 中的代码不会转到 doc 文件。