Convertir Convertir de minúsculas a mayúsculas en Word (en lote) — Inglés y chino

¿Necesita convertir números a palabras monetarias en Word —para que los importes aparezcan escritos con letras en facturas, contratos o cheques—? No está solo: Word no ofrece una forma integrada sencilla de escribir valores monetarios en lote, especialmente cuando un documento contiene muchos importes.

A continuación se presentan dos métodos fiables para lograrlo:(1) un flujo de trabajo «automático» en Excel (VBA para generar palabras monetarias y luego copiar y pegar en Word: requiere más configuración y es más lento), y (2) un método más rápido en Word con pocos clics mediante Kutools para Word (la mejor opción si desea permanecer en Word y convertir varios importes a la vez).

💡 Navegación rápida:

• Qué significa «palabras monetarias» (con ejemplos)
• Método 1 — En Excel: convertir a palabras monetarias con VBA y copiar-pegar en Word
• Método 2 — En Word: un clic para convertir a palabras monetarias con Kutools para Word
  • Convertir números a palabras en inglés para moneda (masivo)
  • Convertir números a palabras en chino para moneda (masivo)
• Comparación entre Excel y Kutools
• Resolución de problemas
• Preguntas frecuentes

Qué significa «palabras monetarias» (con ejemplos)

«Palabras de moneda» consiste en convertir cantidades numéricas a su formato escrito, como: 1234,56 → «Mil Doscientos Treinta y Cuatro Dólares con Cincuenta y Seis Centavos». Esta práctica es habitual en contratos, facturas, cheques, órdenes de compra y documentos de reembolso.

Método 1 — En Excel: convertir a palabras de moneda con VBA + copiar y pegar en Word

Este flujo de trabajo resulta útil cuando sus importes ya están en una hoja de cálculo y simplemente desea que las palabras de moneda se generen en Excel y luego se copien en Word en segundos.

Paso 1 — Prepare su tabla de Excel

1. En Excel, cree una tabla como esta: Importe (números) y ImporteEnLetras (que se generará).
2. Asegúrese de que los importes sean números limpios (no texto). Si es necesario, conviértalos primero mediante la función Texto a número.
   

Paso 2 — Añada una función VBA (UDF) para convertir Convertir de minúsculas a mayúsculas

1. En Excel, pulse Alt + F11 para abrir el editor de VBA.
2. Haga clic en Insertar > Módulo.
3. Pegue el siguiente código VBA en el módulo.
4. Guarde el archivo como .xlsm (libro habilitado para macros).

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

Paso 3 — Rellene hacia abajo para convertir varios números (masivamente)

1. En la columna ImporteEnLetras, introduzca: =CurrencyWordsUSD(A2) (ajuste la referencia de celda según su hoja).
   
2. Rellene hacia abajo para convertir todas las filas.
   
3. Opcional (recomendado): copie la columna ImporteEnLetras y péguela como Valores para fijar los resultados.
   

Paso 4 — Transfiera los resultados a Word (copia y pega rápida)

1. En Excel, seleccione las celdas Importe y ImporteEnLetras que necesite y, a continuación, pulse Ctrl + C.
2. En Word, haga clic donde desee insertar los resultados y, a continuación, pulse Ctrl + V.
   

Método 2 — En Word: un solo clic para convertir a palabras de moneda con Kutools para Word

Para el flujo de trabajo más sencillo iniciado desde Word, Kutools para Word ofrece dos comandos específicos: Números a palabras de moneda en inglés y Números a palabras de moneda en chino. Con un solo clic, puede convertir directamente los números en palabras dentro de su documento.

Convertir números a palabras en inglés para moneda (masivo)

Tras descargar e instalar Kutools para Worddesde el sitio web oficial, realice lo siguiente:

1. En Word, seleccione el texto que contiene los números que desea convertir.

   Consejo: Si no selecciona nada, la herramienta se aplicará al documento completo.

2. Haga clic en Kutools > Insertar > Números a palabras monetarias en inglés.
   

Resultado: Kutools sustituye al instante los números por palabras en inglés que indican cantidades monetarias en el contenido seleccionado (o en todo el documento).

Convertir números a palabras en chino para moneda (masivo)

Tras descargar e instalar Kutools para Worddesde el sitio web oficial, realice lo siguiente:

1. En Word, seleccione el texto que contiene los números que desea convertir en palabras monetarias en chino.

   Consejo: Si no selecciona nada, la herramienta convertirá los números del documento completo.

2. Haga clic en Kutools > Insertar > Números a palabras monetarias en chino.
   

Resultado: Kutools sustituye al instante los números por palabras de moneda en chino en el contenido seleccionado (o en todo el documento).

Comparación entre Excel y Kutools

Resumen: Para agilizar al máximo su flujo de trabajo desde Word, use Kutools para Word y convierta varios importes a palabras en moneda con solo unos clics (ya sea en la selección o en todo el documento). Recurra exclusivamente a VBA en Excel si ya está trabajando en Excel y no le importa realizar una configuración adicional.

Resolución de problemas

Preguntas frecuentes