欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  Office

Word2007能否实现有没有将数字转换为大写金额的功能

程序员文章站 2022-03-31 21:02:19
问题: 1、数字引用:在文章不同地方出现同一数字,我能否在更新其中一处后,其他位置的数字也同时更新? 2、有没有将数字转换为大写金额的功能。 解答: 1...

问题:
1、数字引用:在文章不同地方出现同一数字,我能否在更新其中一处后,其他位置的数字也同时更新?
2、有没有将数字转换为大写金额的功能。

解答:
1、Word可以使用多种方法,实现修改一个数据,其它位置的对该数据的引用进行更新。实现的方法主要有:通过选择性粘贴为链接的方式;通过设置源数据的书签,在其它引用位置使用REF域进行引用;使用自动图文集定义源数据,然后在其它位置插入一个对于该自动图文集的AUTOTEXT域。使用DOCPROPERTY 域,通过文档属性定义一个源数据值,该值可以在文档属性中进行设置与修改(如设置标题值为“10”,其它所有位置使用。使用DOCVARIABLE域,该域需要通过VBA指定值后才能获得。

2、这是《Word非常接触》一书中的自动填充人民币金额大写的域代码,我把它贴出来,希冀对大家有所帮助、裨益。金额大写中,对于整数金额,可以直接通过【插入】/【数字】命令,在打开的【数字】对话框中选取为“壹,贰,叁…”数字类型(设置数字格式)即可实现。对于小数部分,原理也是设置数字格式,只是把角分数据提取出来后再设置其格式。
金额大写转换的域代码:

{ SET Data { ={ Quote "A{ ={ SEQ Z }+1 }" } } }{ SET JinE { =ABS(Data) \#"0.00" } }{ SET Yuan { =INT(JinE) } }{ SET Jiao { =INT(JinE*10-Yuan*10) } }{ SET Fen { =INT(JinE*100-Yuan*100-Jiao*10) } }{ IF Data < 0 "负" "" }{ IF Yuan = JinE "{ =Yuan \*CHINESENUM2 }圆整" { IF Fen = 0 "{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角整" { IF Jiao = 0 "{ =Yuan \*CHINESENUM2 }圆{ =Fen \*CHINESENUM2 }分" "{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角{ =Fen \*CHINESENUM2 }分" }} }

说明:
①可以将该嵌套域代码保存于自动图文集中以方便调用。
②可在单元格中填充该域代码。
③具有正负数自动识别功能。
④自动四舍五入。
⑤最大金额绝对值为214 748 364 7。