¿Cómo encontrar y resaltar párrafos duplicados en un documento de Word?
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:
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.

Las mejores herramientas de productividad para Office
Kutools para Word: más de 100 herramientas para Word
- 🤖 Funciones de IA de Kutools: Asistente de IA / Asistente en Tiempo Real / Super Pulir / Super Traducir / Redacción AI / Revisión con IA
- 📘 Dominio del Documento: Dividir páginas / Combinar documentos / Convertir en lote a PDF
- ✏ Edición de Contenidos: Buscar y reemplazar en lote / Redimensionar todas las imágenes
- 🧹 Limpieza sin esfuerzo: Eliminar Espacios Extras / Eliminar saltos de sección
- ➕ Inserciones creativas: Insertar separadores de miles / Insertar casillas de verificación / Crear Códigos QR
- 🌍 Compatible con más de40 idiomas: ¡Kutools habla tu idioma! Se admiten más de40 idiomas.