com - 文字自动化：邮寄标签

Question

我正在尝试自动化 Word 2010 以在 VBScript 中创建邮件标签。到目前为止，我有以下内容：

Set word = CreateObject("Word.Application")
word.Visible = True
word.Documents.Add
word.MailingLabel.CreateNewDocument "5162"

我收到错误“命令失败”（800A1066）。输出 word.MailingLabel 给出错误，“对象不支持此属性或方法。” MSDN 的 MailingLabel 文档表明这是正确的用法。我究竟做错了什么？

Answer 1

我注意到，Word 本身也无法生成标签。它会告诉我，“您尝试使用的标签信息有问题。”

修复的要点是：

1. 在 Office 安装文件夹中重命名 PAGESIZE（以创建备份）。
2. 使用添加/删除程序中的修复选项修复 Office。

将创建一个新的 PAGESIZE 文件夹，并且 Word 应该能够再次生成标签。