Objet Assistant (Éditeur)
Représente la conception de publication associée à une publication, ou l’Assistant associé à un objet Galerie de conceptions.
Utilisez la propriété Wizard d’un objet Document, Page, Shape ou ShapeRange pour renvoyer un objet Wizard .
Notes
Selon la version linguistique de Publisher que vous utilisez, vous pouvez recevoir une erreur lors de l’utilisation de ce code. Si cela se produit, vous devrez y incorporer des gestionnaires d'erreurs afin d'éviter les erreurs.
Cet exemple présente la conception de la publication associée à la composition active, en affichant son nom et ses paramètres actuels.
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
L’exemple suivant fonctionne comme le code précédent, mais a des gestionnaires d’erreurs intégrés pour cette 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
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.