提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Word文档中将数字转换为单词?

本文正在讨论将Word中的数字转换为英文单词的方法,如果您有兴趣,请继续查看详细信息。

使用VBA将数字转换为英语单词

轻松将一个单词文档分割成多个文档

一般而言,我们使用复制和粘贴功能逐个分割Word文档,但Split Documnet实用程序可以根据页面,heading1,分页符或分节符分割Word文档,这将提高工作效率。 点击45天免费试用!
广告按页面分割文档
用于Word的Kutools:带有数百个方便的Word插件,免费试用45时间不受限制。

使用VBA将数字转换为英语单词

1。 选择要转换为单词的数字,按 Alt + F11键 键打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并复制下面的代码并粘贴到 模块 脚本。

VBA:将数字转换为单词

Sub ConvertNumberToWord()'UpdatebyExtendoffice20181010 Dim xDigit As Double Dim xBuff As String On Error Resume Next Selection.MoveLeft wdWord,1,wdMove Selection.MoveRight wdWord,1,wdExtend xDigit = Val(Trim(Selection.Text))if xDigit = 0 And Str(xDigit)<> Trim(Selection.Text)然后退出Sub如果xDigit> 999999那么如果xDigit <= 999999999则xBuff = Trim(Int(Str(xDigit / 1000000)))Selection.Fields.Add Selection.Range,wdFieldEmpty ,“=”+ xBuff +“\ * CardText”,True Selection.MoveLeft wdWord,1,wdExtend xBuff = Selection.Text&“million”xDigit = Right(Str(xDigit),6)End If End If If If xDigit <= 999999 Then Selection.Fields.Add Selection.Range,wdFieldEmpty,“=”+ Str(xDigit)+“\ * CardText”,True Selection.MoveLeft wdWord,1,wdExtend xDigit = xBuff&Selection.Text Selection.TypeText xDigit +“ “Else MsgBox”数字太大“,vbOKOnly,”Kutool for Word“结束如果结束Sub

3。 按 F5 键运行代码,现在数字已转换为单词。
doc编号为1

注意:代码每次只能处理一个数字。


选项卡式浏览和编辑多个Word文档/ Excel工作簿,如Firefox,Chrome,Internet探索10!

您可能熟悉在Firefox / Chrome / IE中查看多个网页,并通过轻松单击相应的选项卡在它们之间切换。 此处,Office选项卡支持类似的处理,允许您在一个Word窗口或Excel窗口中浏览多个Word文档或Excel工作簿,并通过单击其选项卡轻松地在它们之间切换。
点击免费试用Office Tab!

在一个窗口中以Firefox浏览多个单词文档


推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.