Skip to main content

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

Author: Sun Last Modified: 2025-08-06

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 good idea

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.

  1. 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.
  2. 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
  3. Presiona la tecla F5, y los separadores de miles se agregarán al número seleccionado.

    Thousand separators are inserted into the selected number

  4. 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.

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

  1. 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.
    Add Thousand Separator option on the Kutools tab on the ribbon
  2. Aparecerá un cuadro de diálogo preguntando si deseas aplicar esta función a todo el documento, haz clic en Sí.
    Confirmation dialog saying 'Do you want to add thousand separators to all numbers in the whole document?'
  3. Ahora, a todos los números se les han insertado separadores de miles.
    Thousand separators are inserted into all numbers

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.
    Thousand separators are inserted into numbers in the selected range
  • Para eliminar los separadores de miles, haz clic en Kutools > Eliminar > Eliminar Todos los Separadores de Miles en los Rangos Seleccionados.
    Remove Thousand Separators option on the Kutools tab on the ribbon

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 (Conservar Formato) / Super Traducir (Conservar Formato) / Redacción AI / Revisión con IA...

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

✏ Edición de Contenidos: Buscar y reemplazar en lote en varios archivos / Redimensionar todas las imágenes / Transponer filas y columnas de tablas / 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, ve al grupo Eliminar...

➕ Inserciones creativas: Insertar separadores de miles / casillas de verificación / botones de opción / Código QR / Código de Barras / múltiples imágenes / Descubre más en el grupo Insertar...

🔍 Selecciones precisas: Localiza 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 / alterna entre ventanas de documento /11 herramientas de conversión...

🌍 Compatible con más de40 idiomas: Utiliza Kutools en tu idioma preferido: admite Inglés, Español, Alemán, Francés, Chino y más de40 idiomas.

Kutools and Kutools Plus tabs on the Word Ribbon
👉 ¿Quieres probar estas funciones? ¡Descarga Kutools para Word ahora! 🚀
 

Las mejores herramientas de productividad para Office

Kutools para Word: más de 100 herramientas para Word

Descarga gratuita Comprar ahora Más información sobre Kutools