KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 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. 點擊確定套用,即可將所選數字轉換為文字!

最佳 Office 生產力工具

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 無縫整合 | ⚡ 保存時間,立即提升生產力

最佳 Office 生產力工具

Kutools for Word- Word 專用 100+ 項工具