¿Cómo convertir números a palabras en un documento de Word?
Este artículo habla sobre el método para convertir los números a palabras en inglés en un documento de Word, continúe para ver los detalles si está interesado.
Convierta número a palabras en inglés con VBA
Convierta el número a palabras en inglés en Excel con Kutools para Excel
Convierta número a palabras en inglés con VBA
1. Seleccione el número que desea convertir en palabras, presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, y copie los códigos siguientes y péguelos en el Módulo guión.
VBA: convierte números en palabras
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. Prensa F5 para ejecutar el código, ahora el número se ha convertido en palabras.
Nota:: El código solo funciona en un número cada vez.
Convierta el número a palabras en inglés con Kutools para Excel
Si desea convertir números a palabras en una hoja de Excel, hay una herramienta útil: Números a palabras de Kutools para Excel, que puede convertir números a palabras en inglés o chino, o convertir números a moneda inglesa o china.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después instalación gratuita Kutools para Excel, haga lo siguiente:
1. Seleccione las celdas en las que desea convertir números en palabras, luego haga clic en Kutools > Contenido > Números a palabras.
2. En el cuadro de diálogo emergente, marque Inglés y No convertido a moneda .
3. Hacer clic en Ok or Aplicar, los números seleccionados se convertirán en palabras.
Herramientas de productividad de palabras recomendadas
Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo
- Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
- Inserte varias imágenes en carpetas en un documento de Word a la vez.
- Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
- Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
- Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.