如何使得word中的金额大写中的繁体萬字变成简体万字?

您所在的位置：网站首页 › 大写万字繁体字怎么写 › 如何使得word中的金额大写中的繁体萬字变成简体万字?

如何使得word中的金额大写中的繁体萬字变成简体万字?

2024-07-13 02:02| 来源: 网络整理| 查看: 265

如何使得word中的金额大写中的繁体萬字变成简体万字? 2018年6月11日作者：水星Excel 5,786 次浏览暂无评论

当在word中用插入→符号→编号→壹、贰、叁、肆..时，可以将小写数字转换为大写数字。

比如12345会转换为壹萬贰仟叁佰肆拾伍，但是我们平时要的大写金额一般是壹万贰仟叁佰肆拾伍。

也就是繁体的萬字要改成简体的万字。

其实通过插入→符号→编号→壹、贰、叁、肆.. 这个动作是添加了一个域代码，并添加了格式开关。域代码如下：

{ = 12345 \* CHINESENUM2 }

无论怎么修改域代码，都无法将繁体的萬字要改成简体的万字，因为域代码会自动更新。

为此，可以使用如下的vba代码来实现：

Sub QQ1722187970() Dim oDoc As Document Dim oRng As Range Dim oField As Field Set oDoc = Word.ActiveDocument For Each oField In oDoc.Fields With oField '先解锁，让域代码自动更新结果 .Locked = False '然后更新结果 .Update Debug.Print .Code '返回域代码的结果对象为Range对象 Set oRng = .Result '******其它域对象的操作代码*****' '更改域代码的显示结果 oRng.Text = VBA.Replace(oRng.Text, "萬", "万") '锁定所有的域，使其不自动更新 .Locked = True End With Next End Sub

它的实现原理是把域代码的结果中的繁体萬字替换成简体的万字，然后再将域代码锁定，使其不能自动更新。

其它相关文章推荐：如何用vba操作word域以及域代码？如何用vba在word文档的末尾或者开头插入内容？如何用vba将word文档按照手动分页符拆分？如何用vba在word文档中实现文本内容的修改、删除、添加等各种操作？如何用vba选中所有word文档中的某个格式的文本？如何用vba操作word的编号列表项？分类 : VBA , WORD VBA , Word域代码标签 : Locked , Update , 域 , 域代码 , 简体 , 繁体 , 萬变万 , 金额大小写

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。

【本文地址】

如何使得word中的金额大写中的繁体萬字变成简体万字?

如何使得word中的金额大写中的繁体萬字变成简体万字?

今日新闻

推荐新闻