Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿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 resaltarlos para que se destaquen, de modo que pueda manejar las oraciones duplicadas. ¿Cómo podría encontrar y resaltar los párrafos duplicados de forma rápida y sencilla en un documento de Word?

Encuentre y resalte los párrafos duplicados en el documento de Word con código VBA


Encuentre y resalte los párrafos duplicados en el documento de Word con código VBA

Para encontrar y resaltar los párrafos duplicados en un documento de Word, el siguiente código de VBA puede hacerte un favor, haz lo siguiente:

1. Mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haz clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código de VBA: encuentre 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 para ejecutar este código, todas las oraciones duplicadas se resaltan a la vez, los primeros párrafos duplicados que se muestran se resaltan con color verde, y otros duplicados se resaltan con color amarillo, vea la captura de pantalla:

doc resaltar oraciones dobles 1



Herramientas recomendadas de productividad de palabras

Kutools para Word: más que funciones avanzadas de 100 para Word, ahorre su% 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • 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, una colección de herramientas para conversiones y selección comunes, y así sucesivamente ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 27 days ago
    It throws Compile error: Syntax error, the code is 100% as the example.
  • To post as a guest, your comment is unpublished.
    dvid · 10 months ago
    I tried, and it works fine!
    I just wanted to know - could I do the same thing - but not a whole paragraph, but a sentence with a few words I'd set up - like 10 words?
  • To post as a guest, your comment is unpublished.
    Juliana · 10 months ago
    Tentei e não funcionou, só da que parou de funcionar.