[原创]使用域自动填充功能完成人民币金额大写

s96

楼主真是太厉害了！

原来还以为在Word中实现不了呢！

[em02][em02][em02]

chenhuafu

是不错，真的不错！不过，我一般使用Excel 来进行数字小写转大写，想不到 Word还有这样的功能。

dingzi

谢谢，学习中

水月洞天xyh

唉,小弟,佩服   只能这样讲啦

chezimi

好!

shun2233

千百次的寻找，终于得到，谢谢

qinglian1127

呵呵，学习中

sylun

反复学习老大的代码，有一个现象百思不得其解：对金额的分位数字求解结果有时会出现异常。曾从0.01至10.00按１分递增逐个转换，这1000个数中有58个出现异常，除知道其值均比原数小１和分位数字为0时不会出现偏差这两点外，似乎难以找出其他规律性来。两位以上的数只作简单测试，也发现有此现象，但似乎出现机率明显变小。从域公式来看，找不到可疑之处，而从分步显示来看，问题出在分位，且在转换为大写数字之前就出现异常，确切是在使用INT函数后(见下表)。难道这个函数不可靠？还是我的电脑有问题？如果求fen值不用INT函数取整而直接用简单公式进行计算，前面58个异常均消失，但这可靠吗？如果从公式的严密性来看，似乎用INT函数比简单公式要强，但从差错率来看，后者似乎强些。真不知如何解释。

测试环境：WinXP sp2 Word2003 sp2。

6AiYbdR0.rar (7.98 KB, 下载次数: 200)

2007-2-7 13:17 上传

点击文件名下载附件
[原创]使用域自动填充功能完成人民币金额大写

[此贴子已经被作者于2007-2-7 22:16:02编辑过]

守柔

QUOTE:

以下是引用sylun在2007-2-7 13:22:00的发言：

反复学习老大的代码，有一个现象百思不得其解：对金额的分位数字求解结果有时会出现异常。曾从0.01至10.00按１分递增逐个转换，这1000个数中有58个出现异常，除知道其值均比原数小１和分位数字为0时不会出现偏差这两点外，似乎难以找出其他规律性来。两位以上的数只作简单测试，也发现有此现象，但似乎出现机率明显变小。从域公式来看，找不到可疑之处，而从分步显示来看，问题出在分位，且在转换为大写数字之前就出现异常，确切是在使用INT函数后(见下表)。难道这个函数不可靠？还是我的电脑有问题？如果求fen值不用INT函数取整而直接用简单公式进行计算，前面58个异常均消失，但这可靠吗？如果从公式的严密性来看，似乎用INT函数比简单公式要强，但从差错率来看，后者似乎强些。真不知如何解释。

测试环境：WinXP sp2 Word2003 sp2。

sylun兄，知音也。

两年前，当我还在着手写《Word专家200问》（相当于《WORD非常接触》的前身）时，曾与sailorgg兄说及此INT的BUG，包括我在写《Word非常接触》时，同样也有此问题，后来我记得向MS反映过此问题，但我记不得是否有回复了。

今日sylun兄旧事重提，我还是以我的想法做了一个，请sylun兄测试：

{ =int(jinE*100-yuan*100-jiao*10) }

{ =int({ =jine }*100-{ =yuan }*100-{ =jiao }*10) }

{ =int({ =jine*100 }-{ =yuan*100 }-{ =jiao*10 }) }

{ =int({ =jinE*100-yuan*100-jiao*10 }) }

前两个均为8，后两个的结果为9，当然第四个相对简单。

这让我想到了邮件合并，从EXCEL数据源中的数据写入WORD时，也会发生的数据错误，为保留原数据格式，我们使用了{=邮件合并域}这样的域代码方式，我觉得有异曲同工之处，大道理我说不上来。

konggs

sylun兄，利害，我通常是知道这回事，没去研究她。

如果Word的域与Excel的函数一样多好啊。如能自定义，这样，很多的复杂域就隐藏在后面，给前台用户就一个域（函数）就行了。多好啊，畅想中。。。