Skip to main content

Kutools para Office — Una Suite. Cinco Herramientas. Haz Más.

¿Cómo encontrar y resaltar párrafos duplicados en un documento de Word?

Author Xiaoyang Last modified

Supongamos que tienes un documento de Word muy extenso con cientos de páginas, y ahora quieres verificar si hay párrafos duplicados y luego resaltarlos para que destaquen, de modo que puedas gestionar las oraciones duplicadas. ¿Cómo podrías encontrar y resaltar los párrafos duplicados de forma rápida y sencilla en un documento de Word?

Buscar y resaltar los párrafos duplicados en un documento de Word con código VBA

Buscar y resaltar los párrafos duplicados en un documento de Word con código VBA

Para buscar y resaltar los párrafos duplicados en un documento de Word, el siguiente código VBA puede ayudarte, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Luego, haz clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto:

Código VBA: Buscar y resaltar los párrafos duplicados en un documento de Word:

Sub highlightdup()
    Dim I, J As Long
    Dim xRngFind, xRng As Range
    Dim xStrFind, xStr As String
    Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = 1 To .Paragraphs.Count - 1
            Set xRngFind = .Paragraphs(I).Range
            If xRngFind.HighlightColorIndex <> wdYellow Then
                For J = I + 1 To .Paragraphs.Count
                    Set xRng = .Paragraphs(J).Range
                    If xRngFind.Text = xRng.Text Then
                        xRngFind.HighlightColorIndex = wdBrightGreen
                        xRng.HighlightColorIndex = wdYellow
                    End If
                Next
            End If
        Next
    End With
End Sub

3. Luego presiona la tecla F5 para ejecutar este código; todos los párrafos duplicados se resaltarán al instante. Los primeros párrafos duplicados que aparezcan se resaltarán en color verde, y los demás duplicados se resaltarán en color amarillo, como se muestra en la captura de pantalla:

All duplicate sentences highlighted with the first displayed duplicate paragraphs highlighted in green and other duplicates in yellow

Las mejores herramientas de productividad para Office

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

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

📘 Maestría en Documentos: Dividir páginas / Combinar documentos / Exportar rango en varios formatos (PDF/TXT/DOC/HTML...) / Conversión por lote a PDF...

✏ Edición de cuerpo: Buscar y reemplazar en lote en múltiples 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 / Cuadro de texto / Hipervínculos / Descubre más herramientas de eliminación en el grupo Eliminar...

➕ Inserciones creativas: Insertar delimitador de miles / Casilla de Verificación / Botón 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 / Forma / Párrafo de Encabezado / Mejora la navegación con más funciones de Seleccionar...

⭐ Mejoras destacadas: Navega a cualquier rango / Inserta automáticamente texto repetitivo / Cambia entre ventanas de documento /11 herramientas de Conversión...

🌍 Compatible con más de40 idiomas: Usa Kutools en tu idioma preferido: ¡soporta inglés, español, alemán, francés, chino y más de40 idiomas adicionales!

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

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

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

📦 Obtén las5 herramientas en una sola suite | 🔗 Integración perfecta con Microsoft Office | ⚡ Ahorra tiempo y aumenta tu productividad al instante

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