Table of contents
TOC
Recolher sumário
Expandir sumário

Objeto Wizard (Editor)Wizard Object (Publisher)

office 365 dev account|Última Atualização: 22/03/2018
|
3 Colaboradores

Representa o design da publicação associado a uma publicação ou o assistente associado a um objeto da Galeria de design.Represents the publication design associated with a publication or the wizard associated with a Design Gallery object.

ExemploExample

Use a propriedade Wizard do objeto de um documento, página, Shape ou ShapeRange para retornar um objeto Wizard . O exemplo a seguir relatórios sobre o design de publicação associado à publicação ativa, exibindo seu nome e configurações atuais.Use the Wizard property of a Document, Page, Shape or ShapeRange object to return a Wizard object. The following example reports on the publication design associated with the active publication, displaying its name and current settings.

Dim wizTemp As Wizard 
Dim wizproTemp As WizardProperty 
Dim wizproAll As WizardProperties 

Set wizTemp = ActiveDocument.Wizard 

With wizTemp 
 Set wizproAll = .Properties 
 MsgBox "Publication Design associated with " _ 
 & "current publication: " _ 
 & .Name 
 For Each wizproTemp In wizproAll 
 With wizproTemp 
 MsgBox " Wizard property: " _ 
 & .Name & " = " & .CurrentValueId 
 End With 
 Next wizproTemp 
End With

Observação Dependendo da versão de idioma do Microsoft Publisher que você está usando, você pode receber um erro ao usar o código acima. Caso isso aconteça, você precisará criar manipuladores de erro para evitar os erros. O exemplo a seguir funciona como o código acima, mas tem manipuladores de erro criados para essa situação.Note Depending on the language version of Microsoft Publisher that you are using, you may receive an error when using the above code. If this occurs, you will need to build in error handlers to circumvent the errors. The following example functions as the code above but has error handlers built in for this situation.

Sub ExampleWithErrorHandlers() 
 Dim wizTemp As Wizard 
 Dim wizproTemp As WizardProperty 
 Dim wizproAll As WizardProperties 

 Set wizTemp = ActiveDocument.Wizard 

 With wizTemp 
 Set wizproAll = .Properties 
 Debug.Print "Publication Design associated with " _ 
 & "current publication: " _ 
 & .Name 
 For Each wizproTemp In wizproAll 
 With wizproTemp 
 If wizproTemp.Name = "Layout" Or wizproTemp _ 
 .Name = "Layout (Intl)" Then 
 On Error GoTo Handler 
 MsgBox " Wizard property: " _ 
 & .Name & " = " & .CurrentValueId 

Handler: 
 If Err.Number = 70 Then Resume Next 
 Else 
 MsgBox " Wizard property: " _ 
 & .Name & " = " & .CurrentValueId 
 End If 
 End With 
 Next wizproTemp 
 End With 
End Sub

MétodosMethods

NomeName
SetIdSetId

PropriedadesProperties

NomeName
ApplicationApplication
IDID
NomeName
ParentParent
PropertiesProperties
© 2018 Microsoft