Como converter números em palavras em um documento do Word?

Author: Sun Last Modified: 2025-06-04

Este artigo discute o método para converter números em palavras em inglês em um documento do Word. Continue lendo para ver os detalhes, se estiver interessado.

Converter número em palavras em inglês com VBA

Converter número em palavras em inglês no Excel com Kutools para Excel

Converter número em palavras em inglês com VBA

1. Selecione o número que deseja converter em palavras, pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e copie o código abaixo, colando-o no script do Módulo.

VBA: Converter número em palavras

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. Pressione F5 para executar o código. Agora, o número foi convertido em palavras.
Number converted to English words

Observação: O código funciona apenas para um número de cada vez.

Converter número em palavras em inglês com Kutools para Excel

Se você quiser converter números em palavras em uma planilha do Excel, há uma ferramenta prática - Numbers to Words do Kutools para Excel, que pode converter números em palavras em inglês ou chinês, ou converter números em moeda em inglês ou chinês.

Kutools para Excel,equipado com IA 🤖, oferece mais de 300 recursos práticos para simplificar suas tarefas.

Baixar Agora

Após instalar gratuitamente o Kutools para Excel, siga os passos abaixo:

1. Selecione as células que deseja converter números em palavras e clique em Kutools > Texto > Numbers to Words.
Numbers to Words option on the Kutools tab on the Excel ribbon

2. Na caixa de diálogo que aparece, marque Inglês e Não converter para moeda opções.
Numbers to Words dialog box

3. Clique em Ok ou Aplicar, os números selecionados serão convertidos em palavras.

Melhores Ferramentas de Produtividade para Office

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...