Converter Converter minúsculas para maiúsculas no Word (em Lote) — Inglês e Chinês

Precisa de converter números em palavras monetárias no Word — para que os valores apareçam escritos por extenso em faturas, contratos ou cheques? Não está sozinho: o Word não oferece uma forma simples e integrada de escrever valores monetários por extenso em lote, especialmente quando um documento contém muitos montantes.

Abaixo estão duas formas fiáveis de o conseguir:(1) um fluxo de trabalho “automático” no Excel (VBA para gerar palavras monetárias e, depois, copiar e colar no Word – exige mais configuração e é mais lento) e (2) um método mais rápido e com poucos cliques no Word, utilizando o Kutools para Word (ideal se pretender permanecer no Word e converter vários valores de uma só vez).

💡 Navegação Rápida:

• O que Significa “Palavras Monetárias” (com Exemplos)
• Método 1 — No Excel: Converter em Palavras Monetárias com VBA + Copiar-colar no Word
• Método 2 — No Word: Um Clique para Converter em Palavras Monetárias com Kutools para Word
  • Converter números em palavras monetárias em inglês (em lote)
  • Converter números em palavras monetárias em chinês (em lote)
• Comparação entre Excel e Kutools
• Resolução de Problemas
• Perguntas Frequentes

O que Significa “Palavras Monetárias” (com Exemplos)

«Palavras monetárias» significa converter valores numéricos no respetivo formato por extenso, tal como:1234,56 → «Um Milhar Duzentos e Trinta e Quatro Dólares e Cinquenta e Seis Cêntimos». Esta prática é comum em contratos, faturas, cheques, ordens de compra e documentos de reembolso.

Método 1 — No Excel: Converter para Palavras Monetárias com VBA + Copiar e colar no Word

Este fluxo de trabalho é útil quando os seus montantes já estão numa folha de cálculo e pretende simplesmente que as palavras monetárias sejam geradas no Excel e depois copiadas para o Word em segundos.

Passo 1 — Prepare a sua tabela do Excel

1. No Excel, crie uma tabela como esta: Valor (números) e ValorPorExtenso (a gerar).
2. Certifique-se de que os valores são números válidos (e não texto). Se necessário, converta-os primeiro utilizando a função Texto para Valor.
   

Passo 2 — Adicione uma função VBA (UDF) para converter Converter minúsculas para maiúsculas

1. No Excel, prima Alt + F11 para abrir o editor do VBA.
2. Clique em Inserir > Módulo.
3. Cole o código VBA abaixo no módulo.
4. Guarde o ficheiro como .xlsm (livro com macros ativadas).

Option Explicit
'Updated by Extendoffice 2026/2/10
Public Function CurrencyWordsUSD(ByVal Amount As Double) As String
    Dim Dollars As Long
    Dim Cents As Long
    Dim sDollars As String
    Dim sCents As String

    If Amount < 0 Then
        CurrencyWordsUSD = "Minus " & CurrencyWordsUSD(Abs(Amount))
        Exit Function
    End If

    Dollars = Fix(Amount)
    Cents = Round((Amount - Dollars) * 100, 0)

    sDollars = NumberToWords(Dollars) & IIf(Dollars = 1, " Dollar", " Dollars")
    sCents = NumberToWords(Cents) & IIf(Cents = 1, " Cent", " Cents")

    If Cents = 0 Then
        CurrencyWordsUSD = sDollars
    Else
        CurrencyWordsUSD = sDollars & " and " & sCents
    End If
End Function

Private Function NumberToWords(ByVal n As Long) As String
    If n = 0 Then
        NumberToWords = "Zero"
        Exit Function
    End If

    NumberToWords = Trim_(ToWords(n))
End Function

Private Function ToWords(ByVal n As Long) As String
    Dim Units As Variant, Tens As Variant
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
                  "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")

    Select Case n
        Case 0 To 19
            ToWords = Units(n)
        Case 20 To 99
            ToWords = Tens(Int(n / 10)) & IIf(n Mod 10 > 0, "-" & Units(n Mod 10), "")
        Case 100 To 999
            ToWords = Units(Int(n / 100)) & " Hundred" & IIf(n Mod 100 > 0, " " & ToWords(n Mod 100), "")
        Case 1000 To 999999
            ToWords = ToWords(Int(n / 1000)) & " Thousand" & IIf(n Mod 1000 > 0, " " & ToWords(n Mod 1000), "")
        Case 1000000 To 999999999
            ToWords = ToWords(Int(n / 1000000)) & " Million" & IIf(n Mod 1000000 > 0, " " & ToWords(n Mod 1000000), "")
        Case Else
            ToWords = ToWords(Int(n / 1000000000)) & " Billion" & IIf(n Mod 1000000000 > 0, " " & ToWords(n Mod 1000000000), "")
    End Select
End Function

Private Function Trim_(ByVal s As String) As String
    Trim_ = Application.WorksheetFunction.Trim(s)
End Function

Passo 3 — Preencha para baixo para converter vários números (em lote)

1. Na sua coluna ValorPorExtenso, introduza: =CurrencyWordsUSD(A2) (ajuste a referência da célula à sua folha).
   
2. Preencha para baixo e converta todas as linhas.
   
3. Opcional (recomendado): copie a coluna ValorPorExtenso e cole apenas os Valores para fixar os resultados.
   

Passo 4 — Transfira os resultados para o Word (cópia e colagem rápida)

1. No Excel, selecione as células Valor e ValorPorExtenso que necessita e, em seguida, prima Ctrl + C.
2. No Word, clique onde pretende os resultados e, em seguida, prima Ctrl + V.
   

Método 2 — No Word: Um clique para converter para palavras monetárias com Kutools para Word

Para um fluxo de trabalho mais fácil iniciado no Word, o Kutools para Word oferece dois comandos dedicados: Números para Palavras Monetárias em Inglês e Números para Palavras Monetárias em Chinês. Com um único clique, pode converter números diretamente para palavras monetárias dentro do seu documento.

Converter números em palavras monetárias em inglês (em lote)

Após transferir e instalar o Kutools para Worda partir do site oficial, siga os passos seguintes:

1. No Word, selecione o texto com os números que pretende converter.

   Dica: Se não selecionar nada, pode aplicar a ferramenta ao documento inteiro.

2. Clique em Kutools > Inserir > Números para Palavras Monetárias em Inglês.
   

Resultado: O Kutools substitui instantaneamente os números por palavras monetárias em inglês no conteúdo selecionado (ou em todo o documento).

Converter números em palavras monetárias em chinês (em lote)

Após transferir e instalar o Kutools para Worda partir do site oficial, siga os passos seguintes:

1. No Word, selecione o texto que contém os números que pretende converter em palavras monetárias em chinês.

   Dica: Se não selecionar nada, a ferramenta converterá os números em todo o documento inteiro.

2. Clique em Kutools > Inserir > Números para Palavras Monetárias em Chinês.
   

Resultado: O Kutools substitui instantaneamente os números por palavras monetárias em chinês no conteúdo selecionado (ou em todo o documento).

Comparação entre Excel e Kutools

Resumo: Para acelerar o seu fluxo de trabalho diretamente no Word, utilize o Kutools para Word e converta múltiplos montantes em palavras monetárias com apenas alguns cliques — quer na seleção atual, quer em todo o documento. Recorra à solução VBA do Excel apenas se já estiver a trabalhar no Excel e não se importar com uma configuração adicional.

Resolução de Problemas

Perguntas Frequentes