Auf Englisch lesen

Freigeben über


Assistentenobjekt (Publisher)

Stellt den Veröffentlichungsentwurf dar, der einer Veröffentlichung 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

Hinweis

Je nach verwendeter Sprachversion von Publisher erhalten Sie möglicherweise einen Fehler, wenn Sie diesen Code verwenden. Wenn dies geschieht, müssen Sie Fehlerroutinen einbauen, um die Fehler zu umgehen.

In diesem Beispiel wird das der aktiven Publikation zugeordnete Veröffentlichungsdesign mit dem Namen und den aktuellen Einstellungen angezeigt.

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, verfügt aber über für diese Situation integrierte Fehlerhandler.

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

Eigenschaften

Siehe auch

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.