KutoolsforOffice— 一套方案,五大工具。事半功倍。

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

作者Sun修改日期

本文将为您介绍如何在 Word 文档中将数字转换为英文单词的方法。如果您对此感兴趣,欢迎继续阅读详细内容。

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

在 Excel 中,利用 Kutools for Excel 将数字转换为英文单词


使用 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) Then Exit Sub
    If xDigit > 999999 Then
        If xDigit <= 999999999 Then
            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 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 "Number too large", vbOKOnly, "Kutool for Word"
    End If
End Sub

3. 按下 F5 键运行代码,数字即可成功转换为文字。
数字转换为英文单词

注意:此代码每次仅支持转换一个数字。


使用 Kutools for Excel 将数字转换为英文单词

如果您想在 Excel 表格中将小写金额快速转换为大写,不容错过小写金额转大写工具,这是 Kutools for Excel 的组件,可将数字一键转换为英文或中文大写金额,或转换为英文货币或中文货币格式。

Kutools for Excel搭载 AI 🤖,提供 300 多项实用功能,助您轻松处理各类任务。

免费安装 Kutools for Excel 后,请按以下步骤操作:

1. 选中需要将小写金额转换为大写的单元格,然后点击 Kutools> 内容> 小写金额转大写
Excel功能区 Kutools 选项卡中的“数字转单词”选项

2. 在弹出的对话框中,勾选英文不转换为货币选项。
数字转单词对话框

3. 点击确定应用,即可将选中的数字转换为文字。

最佳办公效率工具

Kutools for Word——集成超过 100 项卓越功能,全面提升您的 Word 体验!

🤖KUTOOLS AI 功能AI 助手/实时助手/超级润色(保留格式)/超级翻译(保留格式)/AI 遮挡/AI 校正……

📘 文档精通分割页面/文档合并/批量选择导出为多种格式(PDF/TXT/DOC/HTML……)/批量转换为 PDF……

内容编辑批量查找与替换跨多个文件/统一调整所有图片大小/调整翻转表格行列/表格转文本……

🧹 轻松清理:一键清除多余空格/分节符/文本框/超链接/ 想要更多清理工具,请前往移除分组……

创意插入:插入千位分隔符/复选框/选项按钮/二维码/条形码/多图插入/ 更多插入选项请查看插入分组……

🔍 精准选择:快速定位特定页面/表格/形状/标题段落/ 利用更多选择功能提升导航效率……

明星增强功能跳转到任意位置/自动插入重复文本/在多个文档 Windows 间切换/11 转换工具……

🌍 支持 40+ 种语言:无论您身处何地,Kutools 均支持英语、西班牙语、德语、法语、中文等 40 多种语言!

Kutools for Word
 
 

Office Tab- 为 Office 带来标签式界面,让您的工作更轻松高效

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中,轻松启用标签式编辑与阅读功能。
  • 在同一窗口中打开和创建多个文档标签,而非在新窗口中分别打开。
  • 让您的工作效率提升 50%,每天为您减少数百次鼠标点击!

✨ Kutools for Office —— 一次安装,畅享五大强力工具!

包含 Office Tab Pro·Kutools for Excel·Kutools for Outlook·Kutools for Word·Kutools for PowerPoint

📦 一套打包 5 个工具 | 🔗 与 Microsoft Office 无缝集成 | ⚡ 保存时间,立即提升效率

最佳办公效率工具

Kutools for Word- 100+ 款 Word 工具