如何在WORD的合同文本中，输入小写金额，在后面自动显示大写金额？

xiaoya6976 · 发表于 2023-2-14 13:47

比如在word中：合同费用不含税价暂定为 194310.40元（大写：壹拾玖万肆仟叁佰壹拾元肆角）；当改变194310.40这个数字时，自动改变后面的大写金额数字

lgcmeli · 发表于 2023-2-14 14:20

1、编程 2、复制excel内容过来作为链接 3、别多想

xiaoya6976 · 发表于 2023-2-14 17:10

lgcmeli 发表于 2023-2-14 14:20
1、编程 2、复制excel内容过来作为链接 3、别多想

写了一段代码，在想用两个控件来实现目的
具体来说：
1、当在文本控件中输入内容并退出该控件时，该代码会自动触发 Document_ContentControlOnExit 事件，检查触发事件的控件是否为指定的金额控件。
2、如果是，则提取该控件的文本内容并转换为对应的阿拉伯数字金额。如果金额为负数，则在大写金额前添加“负”字。
3、根据设定的规则将该阿拉伯数字金额转换为中文大写金额，并更新另一个文本控件的文本，以显示转换后的大写金额
但是不知道为什么，总是提示语法错误，请大佬指点下

数字自动添加大写测试.rar (14.68 KB, 下载次数: 8)

zldccmx · 发表于 2023-2-16 09:48

暂定合同费用不含税价暂定为123456789.zip (23.47 KB, 下载次数: 15)

zldccmx · 发表于 2023-2-16 09:56

WORD自动金额大写

WORD自动金额大写.zip (24.06 KB, 下载次数: 25)

zldccmx · 发表于 2023-2-16 10:15

一个纯VBA代码的，不需要控件。

zldccmx · 发表于 2023-2-16 10:17

本帖最后由 zldccmx 于 2023-2-16 10:25 编辑

详见附件。

		自动登录	找回密码
密码			免费注册

[求助] 如何在WORD的合同文本中，输入小写金额，在后面自动显示大写金额？

评分