How to set document properties by VBA?

[Anonymous]

I want to set 'Initial Data Reduction Based on ....' and 'Strict Exclusion' active status in one .qvw file by VBA. How can I write the script?

[tamilarasu · Accepted solution]

Hi John,

Sub Test

rem ** set initial data reduction by section access **

set docprop = ActiveDocument.GetProperties

docprop.DynamicReduceData = true

docprop.StrictDynamicReduction = true

ActiveDocument.SetProperties docprop

End Sub