Объект мастера (издатель)
Представляет макет публикации, связанный с публикацией, или мастер, связанный с объектом коллекции конструкторов.
Используйте свойство Wizard объекта Document, Page, Shape или ShapeRange , чтобы вернуть объект Мастера .
Примечание
В зависимости от используемой языковой версии Publisher при использовании этого кода может возникнуть сообщение об ошибке. В этом случае необходимо создать обработчики ошибок, чтобы обойти ошибки.
В этом примере сообщается о структуре публикации, связанной с активной публикацией, с отображением ее имени и текущих параметров.
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
Следующий пример работает как предыдущий код, но имеет встроенные обработчики ошибок для этой ситуации.
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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.