object, based on the specified ID, from the collection of wizard properties associated with a publication design or a Design Gallery object's wizard.
expression.FindPropertyById(ID)
expression Required. An expression that returns one of the objects in the Applies To list.
ID Required Long. The ID of the the wizard property to return; corresponds to the ID property of the WizardProperty object.
Example
The following example changes the settings of the current publication design (Newsletter Wizard) so that the publication has a region dedicated to the customer's address (Customer Address).
Sub SetWizardProperties
Dim wizTemp As Wizard
Dim wizproTemp As WizardProperty
Set wizTemp = ActiveDocument.Wizard
With wizTemp.Properties
Set wizproTemp = .FindPropertyById(ID:=901)
wizproTemp.CurrentValueId = 1
End With
End Sub