Functionality Lost

[tmumaw]

I have a model where I have "What If" analysis built into it.  I use the following variables defined as:

INPUTFIELD vPCT;
INPUTFIELD vDollars;

After I publish the model it works fine on the entire model, but when I distribute it by Office I loose the ability to enter data and do the what-if calculation.  I run the following macro to initialize the input fields.

sub updateRatePct

set fld = ActiveDocument.Fields("vPCT")

fld.ResetInputFieldValues 0

set fld = ActiveDocument.Fields("vDollars")

fld.ResetInputFieldValues 0

end sub

Thanks