¿Cómo agregar separadores de miles a los números en documentos de Word?

Author: Sun Last Modified: 2025-06-04

Agregar separadores de miles a los números en un documento de Word puede mejorar considerablemente la legibilidad, especialmente cuando se trabaja con cifras grandes. Aunque Microsoft Word no tiene una función directa para agregar separadores de miles, existen métodos eficientes para lograrlo utilizando VBA (Visual Basic para Aplicaciones) o una herramienta práctica como Kutools para Word.

En este tutorial, te guiaremos a través de los pasos para agregar separadores de miles a los números en tu documento de Word utilizando tanto VBA como Kutools para Word.

Agregar separadores de miles con VBA

Agregar separadores de miles con Kutools para Word

Agregar separadores de miles con VBA

Insertar separadores de miles en números grandes puede ser tedioso, especialmente si necesitas hacerlo repetidamente. Al usar código VBA, puedes automatizar este proceso, permitiéndote simplemente seleccionar un número y presionar F5 para agregar instantáneamente los separadores.

Selecciona el número que deseas formatear con separadores de miles, luego presiona Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

Haz clic en Insertar > Módulo, luego copia y pega el siguiente código en el Módulo editor.

Sub InsertThousandSeparators()
    Dim selectedText As String
    Dim formattedText As String
    Dim decimalPos As Integer
    Dim wholePart As String
    Dim decimalPart As String
    Dim temp As String
    Dim i As Integer
    Dim charCount As Integer
    Dim trailingSpace As String
    Dim trailingParagraphMark As String
    
    If Selection.Type <> wdSelectionIP Then
        selectedText = Selection.Text
        trailingSpace = ""
        trailingParagraphMark = ""
        
        If Right(selectedText, 1) = " " Then
            trailingSpace = " "
            selectedText = Trim(selectedText)
        End If
        
        If Right(selectedText, 1) = Chr(13) Then
            trailingParagraphMark = Chr(13)
            selectedText = Left(selectedText, Len(selectedText) - 1)
        End If
        
        If IsNumeric(selectedText) Then
            decimalPos = InStr(1, selectedText, ".")
            
            If decimalPos > 0 Then
                wholePart = Left(selectedText, decimalPos - 1)
                decimalPart = Mid(selectedText, decimalPos + 1)
            Else
                wholePart = selectedText
                decimalPart = ""
            End If
            
            wholePart = Replace(wholePart, ",", "")
            
            temp = ""
            charCount = 0
            
            For i = Len(wholePart) To 1 Step -1
                temp = Mid(wholePart, i, 1) & temp
                charCount = charCount + 1
                
                If charCount Mod 3 = 0 And i > 1 Then
                    temp = "," & temp
                End If
            Next i
            
            wholePart = temp
            
            If decimalPart <> "" Then
                formattedText = wholePart & "." & decimalPart
            Else
                formattedText = wholePart
            End If
            
            Selection.Text = formattedText & trailingSpace & trailingParagraphMark
        Else
            MsgBox "Please select a valid number."
        End If
    Else
        MsgBox "Please select a number first."
    End If
End Sub

Presiona la tecla F5, y los separadores de miles se agregarán al número seleccionado.
Para agregar separadores a otro número, simplemente selecciona el nuevo número y luego regresa a la ventana del Módulo y presiona F5 nuevamente.

Agregar separadores de miles con Kutools para Word

Si deseas insertar separadores en múltiples números en una selección o en todo el documento de Word, la utilidad Agregar Separador de Miles de Kutools para Word puede resolver esta tarea con solo unos pocos clics.

Kutools para Word,equipado con inteligencia artificial 🤖, ofrece más de 100 funciones prácticas para simplificar tus tareas.

¡Descargar ahora!

Después de instalar Kutools para Word, sigue estos pasos:

Para agregar separadores de miles a todos los números en todo el documento, no selecciones ningún dato, y haz clic en Kutools > Insertar > Agregar Separador de Miles.
Aparecerá un cuadro de diálogo preguntando si deseas aplicar esta función a todo el documento, haz clic en Sí.
Ahora, a todos los números se les han insertado separadores de miles.

Notas:

Si deseas agregar separadores de miles a los números en una selección específica, selecciona primero la sección, y luego haz clic en Kutools > Insertar > Agregar Separador de Miles.
Para eliminar los separadores de miles, haz clic en Kutools > Eliminar > Eliminar Todos los Separadores de Miles en los Rangos Seleccionados.

Demostración: Agregar separadores de miles a números en un documento de Word

Descubra la pestaña Kutools / Kutools Plus en este video de Kutools for Word. Disfrute de 100+ funciones y utilidades de IA permanentemente gratuitas. ¡Descárguelo ahora!

Las mejores herramientas de productividad para Office

Kutools para Word - ¡Mejora tu experiencia en Word con más de 100 funciones excepcionales!

🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir (Mantener formato) / Super Traducir (Mantener formato) / Redacción AI / Revisión con IA...

📘 Dominio de Documentos: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir en lote a PDF...

✏ Edición de Contenido: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla a texto...

🧹 Limpieza sin esfuerzo: Elimina espacios extras / saltos de sección / cuadros de texto / hipervínculos / Para más herramientas de eliminación, visita el grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / Casillas de verificación / Botones de opción / Código QR / Código de Barras / Varias imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Selecciona páginas específicas / Tablas / Formas / Párrafos de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documentos /11 herramientas de conversión...