Clear Input Boxes

[#1]

I'm trying to clear all of the input box items in the attached *.qvw using VB script and the "Clear Input Values" button. For some reason my code is only clearing out the top two items. Anyone know what I'm missing to clear all of the items out?

thanks,

rob

[disqr_rm · Accepted solution]

Hi Rob,

Try following:

sub input_clr
'Clear All input boxes
set ClearAllib = ActiveDocument.GetSheetObject("IB01")
for i = 1 to ClearAllib.GetNoOfRows
ClearAllib.SetVariableContent i-1,"",true
next
end sub

Thanks

[#3]

Do you not just need it to be:

sub




 input_clr
'Clear All input boxes

set



 ClearAllib = ActiveDocument.GetSheetObject("IB01"
)
""

 ,
true
""

,true
""


,true
""


,true
""


,true

' ActiveDocument.ClearAll false
end

Regards,

Gordon

sub

[#4]

That came out well! Should have read:

sub input_clr
'Clear All input boxes
set ClearAllib = ActiveDocument.GetSheetObject("IB01")
ClearAllib.SetVariableContent 0,"",true
ClearAllib.SetVariableContent 1,"",true
ClearAllib.SetVariableContent 2,"",true
ClearAllib.SetVariableContent 3,"",true
ClearAllib.SetVariableContent 4,"",true
' ActiveDocument.ClearAll false
end sub

[#5]

Thanks Rakesh. That did the trick.

rob

[#6]

Gordon,

That also worked. Thanks.

rob