英語で読む

次の方法で共有


Wizard オブジェクト (Publisher)

パブリケーションに関連付けられているパブリケーションデザイン、またはデザイン ギャラリー オブジェクトに関連付けられているウィザードを表します。

注釈

DocumentPageShape、または 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 のサポートおよびフィードバックを参照してください。