KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

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

AutorSun Fecha de modificación

Agregar un separador de miles a los números en un documento de Word puede mejorar considerablemente la legibilidad, especialmente al trabajar con cifras elevadas. Aunque Microsoft Word no incluye una función directa para agregar el separador de miles, existen métodos eficaces para lograrlo mediante VBA (Visual Basic para Aplicaciones) o con una herramienta práctica como Kutools para Word.

En este tutorial, le guiaremos paso a paso para agregar el separador de miles a los números de su documento de Word, tanto con VBA como con Kutools para Word.

Agregar Separador de Miles con VBA

Agregar Separador de Miles con Kutools para Word buena idea

Agregar Separador de Miles con VBA

Insertar separadores de miles en números grandes puede resultar tedioso, especialmente si tienes que hacerlo repetidamente. Con un sencillo código VBA, puedes automatizar este proceso: basta con seleccionar un número y pulsar F5 para añadir los separadores al instante.

  1. Seleccione el número que desee formatear con separadores de miles y, a continuación, pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
  2. Haga clic en Insertar>Módulo, copie y pegue el siguiente código en el editor del Módulo. 
    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. Pulse la tecla F5y se añadirán los separadores de miles al número seleccionado.

    Se insertan separadores de miles en el número seleccionado

  4. Para añadir separadores a otro número, seleccione el nuevo número, vuelva a la ventana del Módulo y pulse nuevamente F5.

Agregar Separador de Miles con Kutools para Word

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

Kutools para Word

Kutools para Word le ayuda a gestionar las tareas diarias con documentos más rápido gracias a herramientas prácticas integradas directamente en Microsoft Word: sin programación ni configuración compleja.

  • Redacción, corrección, traducción y resumen con IA
  • Buscar y reemplazar en lote en todos los documentos
  • Combina y divide documentos de Word fácilmente
  • Conversión masiva entre Word y PDF
DescargarMás información

Tras instalar Kutools para Word, siga estos pasos:

  1. Para aplicar Agregar Separador de Miles a todos los números del documento completo, no seleccione ningún dato y haga clic en Kutools>Insertar>Agregar Separador de Miles.
    Opción Agregar separador de miles en la pestaña Kutools de la cinta de opciones
  2. Aparecerá un cuadro de diálogo preguntando si desea aplicar esta función a Todo el documento; haga clic en Sí.
    Cuadro de diálogo de confirmación que dice: «¿Desea agregar separadores de miles a todos los números del documento completo?»
  3. Ahora, todos los números incluyen separadores de miles insertados.
    Se insertan separadores de miles en todos los números

Notas:

  • Si desea Agregar Separador de Miles a números en una selección específica, seleccione primero la sección y, a continuación, haga clic en Kutools>Insertar>Agregar Separador de Miles.
    Se insertan separadores de miles en los números del rango seleccionado
  • Para eliminar los separadores de miles, haga clic en Kutools>Eliminar>Eliminar todos los separadores de miles en el rango seleccionado.
    Opción Quitar separadores de miles en la pestaña Kutools de la cinta de opciones

Demostración: Agregar Separador de Miles a los números en un documento de Word

Kutools para Word potencia Microsoft Word con una amplia gama de herramientas prácticas que le ayudan a ahorrar tiempo y reducir el trabajo repetitivo en la edición diaria de documentos.

DescargarMás información

Las mejores herramientas de productividad para Office

Kutools para Word- Potencie su experiencia en Word con más de 100funciones extraordinarias

🤖Funcionalidades de KUTOOLS AI: Asistente de IA / Asistente en Tiempo Real / Super Pulir (conservar formato) / Super Traducir (conservar formato) / Redacción con IA / Revisión con IA…

📘Dominio del documento: Dividir páginas, combinar documentos, exportar selecciones en varios formatos (PDF, TXT, DOC, HTML…) y convertir varios documentos a PDF…

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

🧹Limpieza sin esfuerzo: Elimine rápidamente espacios adicionales, saltos de sección, cuadros de texto e hipervínculos. Para más herramientas de eliminación, vaya al grupo Eliminar…

➕Inserciones creativas: Inserte separadores de miles, casillas de verificación, botones de opción, códigos QR, códigos de barras o varias imágenes. ¡Descubra más en el grupo Insertar…

🔍Selecciones precisas: Localice exactamente páginas específicas, tablas, formas o párrafos de encabezado. Mejore la navegación con más funciones de selecciónfeatures ......

⭐Mejoras destacadas: Navega a cualquier ubicación / Inserta automáticamente texto repetitivo / Alterna entre documentos de Windows / 11 …herramientas de conversión…

🌍Compatible con 40+ idiomas: Use Kutools en su idioma preferido – compatible con inglés, español, alemán, francés, chino y 40+ más idiomas

Kutools for Word pestañas en la cinta de opciones
 
 

Office Tab- Aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en ventanas nuevas.
  • ¡Aumente su productividad en un 50 % y ahorre cientos de clics de ratón cada día!

✨ Kutools for Office – ¡Una instalación, cinco herramientas potentes!

Incluye Office Tab Pro·Kutools para Excel·Kutools para Outlook·Kutools para Word·Kutools for PowerPoint

📦 Obtenga las 5 herramientas en un único conjunto | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorrar tiempo y aumente su productividad al instante

Las mejores herramientas de productividad para Office

Kutools para Word- Herramientas 100+ para Word

Descarga gratuitaComprar ahoraMás información sobre Kutools