word中数字123转换成大写壹贰

一、word里怎么把阿拉伯数123字转换成大写数字一二三

方法如下：

1、打开word;

2、选择要转换的“123”数字；

3、点击插入-》编号；

4、在弹出的编号窗口，选择大写"一、二、三”；

5、确定，完成。

二、我想问一下,可以在WORD中把一二三四

如果量比较大的话，可以用VBA来做。步骤如下：

1、Alt+F11打开VBA编辑窗口，然后选择菜单项“插入-模块”；

2、在编辑区中粘贴如下代码：

Sub ConvertAllNumbers()

Selection.Find.ClearFormatting

While Selection.Find.Execute(FindText:="[0-9]", MatchWildcards:=True, Forward:=True, Wrap:=Word.wdFindContinue)

Selection.Fields.Add Range:=Selection.Range, Text:="=" & Selection.Text & " \* CHINESENUM2"

Selection.MoveLeft wdWord, 1, wdExtend

Selection.Text = Selection.Fields(1).Result

Selection.Collapse wdCollapseEnd

Wend

MsgBox "完成！"

End Sub

3、键入F5，运行看到“完成！”。

4、切换回Word文档窗口检查是否所有数字都已转换为中文数字。

请注意上面的代码是将数字1、2、3……直接转换为一一对应的壹、贰、叁……。如果希望把“312”转换成“叁佰壹拾贰”（也就是说带上仟、佰、拾什么的），需要把上面的第三行语句换成：

While Selection.Find.Execute(FindText:="[0-9]{1,}", MatchWildcards:=True, Forward:=True, Wrap:=Word.wdFindContinue)

也就是在[0-9]后面加一个“{1,}”。

_____________________

补充：

：（ 晕晕晕晕，太抱歉了，是我自己没有看清楚题目。我的代码只能做1、2、3到壹、贰、叁的转换。

不过如果要处理一、二、三……、千百万的话，也是可以做的。代码如下：

Sub ConvertAllNumbers()

Selection.Find.ClearFormatting

While Selection.Find.Execute(FindText：="[一二三四五六七八九十千百万]"， MatchWildcards:=True, Forward:=True, Wrap:=Word.wdFindContinue)

Selection.Text = Mid（"壹贰叁肆伍陆柒捌玖拾仟佰万"， InStr（"一二三四五六七八九十千百万"， Selection.Text）, 1)

Selection.Collapse wdCollapseEnd

Wend

MsgBox "完成！"

End Sub

三、Microsoft Excel 表格中怎样可将数字（123）变成大写（壹贰叁）

有个公式 SUBSTITUTE(SUBSTITUTE(IF(A1<>

四、2007版如何在word中将数字直接转换为大写

日常办公中，尤其是财务人员，常常用到中文大写数字，比如“123”就要写成“一百二十三”或者“壹佰贰拾叁”，这样书写起来比较麻烦，其实可以直接输入“123”，然后利用word2007中自带的转换命令转换。

首先选中需进行转换的数字

点击“插入”菜单中，“符号”组的“编号”命令

在弹出的编号对话框里选择编号类型

例如选择“壹，贰，叁”类型的，点击“确定”

word中的数字就能自动转换为中文大写的了

当然也可以选择“一、二、三”类型的，

五、Word文档有小数点的数字怎么转换为大写汉字

先将所有数字逐个（0-9替换十次）转换成大写汉字（123转换后是壹贰叁，不是壹佰贰拾叁），然后将小数点转换成汉字“点”，再将点前面的数字中间加上万仟佰拾（就是将壹贰叁替换成壹佰贰拾叁，需要替换多次，第一次（[零-玖]）（[零-玖]点），替换为\1拾\2；第二次（[零-玖]）（[零-玖]拾[零-玖]点），替换为\1佰\2；以此类推），然后再将“零”+“万仟佰拾”的“万仟佰拾”替换掉，再将“零零”替换为“零”（多次替换）

大致就是这个思路，适用于非常多数字需要转换的情况，如果不太多的话，建议用搜狗拼音输入法的v+数字的输入方法直接修改。

转载请注明出处51数据库 » word中数字123转换成大写壹贰