expression.CurrentValueId
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
Accessing this property for a publication design setting whose Enabled property is False causes an error.
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.
Dim wizTemp As Wizard
Dim wizproAll As WizardProperties
Set wizTemp = ActiveDocument.Wizard
With wizTemp.Properties
.FindPropertyById(ID:=901).CurrentValueId = 1
End With