Word Automation：邮件标签

Question

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

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

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

Answer 1

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

修复的要点是：

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

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