You could use a field coded as:
{QUOTE {SET Val {MERGEFIELD Amount}}"{=INT(Val) \* CardText} dollar{=INT(Val)-1 \# "s;s;"}{IF{=MOD(Val,1) \# 0.00}> 0 " and {={=MOD(Val,1)*100 \# 0} \* CardText } cent{=INT(MOD(Val,1)*100-1) \# "s;s;"}"}"}
or:
{QUOTE {SET Val «Amount»}"{=INT(Val) \* CardText} dollar{=INT(Val)-1 \# "s;s;"}{IF{=MOD(Val,1) \# 0.00}> 0 " and {={=MOD(Val,1)*100 \# 0} \* CardText } cent{=INT(MOD(Val,1)*100-1) \# "s;s;"}"}"}
where 'Amount' is the name of your mergefield. This will give outputs such as:
one dollar
twelve dollars
one hundred twenty-three dollars
one dollar and one cent
one dollar and twelve cents
one thousand twenty-four dollars and fifty-five cents
more complex field coding would be required to insert the 'and' used outside the US, as in:
one hundred and twenty-three dollars
one thousand and twenty-four dollars and fifty-five cents
For outputs that don't suppress the cents when zero, you could instead use:
{QUOTE {SET Val {MERGEFIELD Amount}}"{=INT(Val) \* CardText} dollar{=INT(Val)-1 \# "s;s;"} and {={=MOD(Val,1)*100 \# 0} \* CardText } cent{=INT(MOD(Val,1)*100-1) \# "s;s;"}"}
or:
{QUOTE {SET Val «Amount»}"{=INT(Val) \* CardText} dollar{=INT(Val)-1 \# "s;s;"} and {={=MOD(Val,1)*100 \# 0} \* CardText } cent{=INT(MOD(Val,1)*100-1) \# "s;s;"}"}
Note: The field brace pairs (i.e. '{ }') for the above examples are all created in the document itself, via Ctrl-F9 (Cmd-F9 on a Mac); you can't simply type them or copy & paste them from this message. Nor is it practical to add them
via any of the standard Word dialogues. Likewise, you can't type or copy & paste the chevrons (i.e. '« »') - they're part of the actual mergefields, which you can insert from the 'Insert Merge Field' dropdown. The spaces represented in the field construction
are all required.
For a macro to convert the above into working field codes, see Convert Text Representations of Fields to Working Fields in the
Mailmerge Tips and Tricks threads at:
http://www.msofficeforums.com/mail-merge/21803-mailmerge-tips-tricks.html
and:
http://windowssecrets.com/forums/showthread.php/163017-Word-Mailmerge-Tips-amp-Tricks
Cheers
Paul Edstein
[MS MVP - Word]
