¿Cómo encontrar y resaltar párrafos duplicados en un documento de Word?
Supongamos que tiene un documento de Word grande que puede tener cientos de páginas, ahora, desea verificar si hay párrafos duplicados y luego resaltar para resaltarlos, de modo que pueda lidiar con las oraciones duplicadas. ¿Cómo podría encontrar y resaltar los párrafos duplicados rápida y fácilmente en un documento de Word?
Busque y resalte los párrafos duplicados en un documento de Word con código VBA
Busque y resalte los párrafos duplicados en un documento de Word con código VBA
Para encontrar y resaltar los párrafos duplicados en un documento de Word, el siguiente código VBA puede hacerle un favor, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:
Código VBA: busque y resalte los párrafos duplicados en el 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. Y luego presione F5 clave para ejecutar este código, todas las oraciones duplicadas se resaltan a la vez, los primeros párrafos duplicados mostrados se resaltan con color verde y otros duplicados se resaltan con color amarillo, vea la captura de pantalla:
Herramientas de productividad de palabras recomendadas
Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo
- Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
- Inserte varias imágenes en carpetas en un documento de Word a la vez.
- Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
- Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
- Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
