Assistentenobjekt (Publisher)
Stellt den Veröffentlichungsentwurf dar, der einer Veröffentlichung zugeordnet ist, oder den Assistenten, der einem Design Gallery-Objekt zugeordnet ist.
Verwenden Sie die Wizard-Eigenschaft eines Document-, Page-, Shape- oder ShapeRange-Objekts, um ein Wizard-Objekt zurückzugeben.
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
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.