Com Word自动化：邮寄标签

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

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

---

我得到错误“命令失败”（800A1066）。输出word.MailingLabel时会出现错误，“对象不支持此属性或方法。”表示这是正确的用法。我做错了什么？我注意到Word本身也无法生成标签。它会告诉我，“您试图使用的标签信息有问题。”

修复的要点如下：

重命名Office安装文件夹中的PAGESIZE（以创建备份）

使用“添加/删除程序”中的“修复”选项修复Office

---

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

Word本身也无法生成标签，我刚刚注意到。它会告诉我，“您试图使用的标签信息有问题。”修复的要点是：（1）重命名Office安装文件夹中的PAGESIZE（以创建备份）。（2） 使用“添加/删除程序”中的“修复”选项修复Office。将创建一个新的PAGESIZE文件夹，Word应该能够再次生成标签。嗨，Eric。如果你把你的评论作为一个答案，那就太好了。你甚至可以在一段时间内接受自己的答案。@Remou:谢谢你的提醒。对于新用户的等待限制使我不愿意最初发布回复而不是评论。