Objeto AnswerWizard

AnswerWizard (AnswerWizardFiles)

Es posible que algunas partes de este tema no sean aplicables a algunos idiomas.

Representa el Asistente para Ayuda de una aplicación de Microsoft Office. Sólo hay un Asistente para Ayuda por aplicación y todos los cambios producidos en la colección AnswerWizard o AnswerWizardFiles afectarán de manera inmediata a la aplicación activa de Office.

Utilizar el objeto AnswerWizard

Utilice el método ClearFileList para quitar todas las entradas de la lista de archivos disponibles en el Asistente para Ayuda actual. Si utiliza este método, se asegurará de que ya no se podrá obtener acceso a los archivos predeterminados disponibles en la aplicación host a través del Asistente para Ayuda, tal como ocurre cuando reemplaza archivos del Asistente para Ayuda con archivos .AW predeterminados. El ejemplo siguiente borra la lista de archivos del Asistente para Ayuda predeterminado y añade dos archivos al Asistente para Ayuda personalizado.

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

Utilice el método ResetFileList para restablecer la lista de archivos del Asistente para Ayuda a la lista predeterminada de archivos de la aplicación host de Office. También puede establecer una lista de archivos predeterminada en el registro de Windows añadiendo los nombres de los archivos personalizados a la clave de registro adecuada; los archivos especificados en dicha clave de registro se restablecerán cuando se active ResetFileList. Este ejemplo restablece la lista de archivos del Asistente para Ayuda actual.

customAnswerWizard.ResetFileList

Utilice la propiedad Files para obtener la colección de referencias a archivos del Asistente para Ayuda. La propiedad Files devuelve una colección de cadenas que se refieren a archivos .AW. El ejemplo siguiente devuelve la colección AnswerWizardFiles y muestra el número de archivos en un cuadro de mensaje.

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

MsgBox customAnswerWizardFiles.Count