Assistentenobjekt (Herausgeber)

Stellt den Publikationsentwurf dar, der einer Publikation zugeordnet ist, oder den Assistenten, der einem Design Gallery-Objekt zugeordnet ist.

Hinweise

Verwenden Sie die Wizard-Eigenschaft eines Document-, Page-, Shape- oder ShapeRange-Objekts, um ein Wizard-Objekt zurückzugeben.

Beispiel

Dieses Beispiel berichtet über das Publikationsdesign, das mit der aktiven Publikation verknüpft ist, und zeigt ihren Namen und ihre aktuellen Einstellungen an.

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

Das folgende Beispiel funktioniert wie der vorherige Code, enthält jedoch Fehlerhandler, die für diese Situation integriert sind.

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

Methoden

• SetId

Eigenschaften

• Application
• ID
• Name
• Parent
• Properties

Siehe auch

• Referenz zum Publisher-Objektmodell

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.