Wizard オブジェクト (Publisher)
パブリケーションに関連付けられているパブリケーションデザイン、またはデザイン ギャラリー オブジェクトに関連付けられているウィザードを表します。
Document、Page、Shape、または ShapeRange オブジェクトの Wizard プロパティを使用して、Wizard オブジェクトを取得します。
注意
使用している 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 のサポートおよびフィードバックを参照してください。