AnswerWizard 对象

本主题中的某些内容可能不适用于某些语言。

代表 Microsoft Office 应用程序的 AnswerWizard。每个应用程序只有一个 AnswerWizard，并且对AnswerWizard 或AnswerWizardFiles 集合所做的所有更改都将立刻影响活动的 Office 应用程序。

使用 AnswerWizard 对象

用ClearFileList 方法可删除当前“应答向导”可用的文件列表中所有的项目。可用此方法确保用户无法再通过“应答向导”访问 Office 宿主应用程序中使用的默认文件，例如当您用自定义的 .AW 文件替换“应答向导”文件时，即需要用此功能。以下示例清除默认的“应答向导”文件列表，然后将两个文件添加到自定义“应答向导”中。

customAnswerWizard.ClearFileList
customAnswerWizard.Files.Add ("c:\awfiles\custom_1.aw")
customAnswerWizard.Files.Add ("c:\awfiles\custom_2.aw")

用ResetFileList 方法可将当前“应答向导”中的文件列表恢复为 Office 宿主应用程序的默认文件列表。也可通过向相应的注册表项中加入自定义文件名的方式，在 Windows 注册表中建立自定义默认文件列表；注册表项中指定的文件将在调用ResetFileList 时恢复。本示例重置当前“应答向导”的文件列表。

customAnswerWizard.ResetFileList

用Files 属性可获取“应答向导”文件引用的集合。Files 属性返回引用 .AW 文件的字符串的集合。以下示例返回AnswerWizardFiles 集合并在消息框中显示文件数。

Dim customAnswerWizardFiles As AnswerWizardFiles
Set customAnswerWizardFiles = Application.AnswerWizard.Files

MsgBox customAnswerWizardFiles.Count