您好,欢迎来到Office教程网
您的位置: 主页 > word教程 > word学习 >

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

时间:2012-04-03 来源:office.sc115.com阅读:

问题:
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。

    office教程 - office2007免费版下载 - word教程 - 网站地图