Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

Ինչպե՞ս գտնել և ընդգծել Word փաստաթղթում կրկնօրինակ պարբերությունները:

Ենթադրելով, որ դուք ունեք մի մեծ Word փաստաթուղթ, որը կարող է ունենալ հարյուրավոր էջեր, այժմ դուք ցանկանում եք ստուգել, ​​թե արդյոք կան կրկնօրինակ պարբերություններ, այնուհետև կարևորել դրանք `դրանք չթողնելու համար, որպեսզի կարողանաք գործ ունենալ կրկնօրինակ նախադասությունների հետ: Ինչպե՞ս կարող եք արագ և հեշտությամբ գտնել և ընդգծել կրկնօրինակ պարբերությունները Word փաստաթղթում:

Գտեք և առանձնացրեք Word փաստաթղթում VBA կոդով կրկնօրինակ պարբերությունները


Գտեք և առանձնացրեք Word փաստաթղթում VBA կոդով կրկնօրինակ պարբերությունները

Word փաստաթղթում կրկնօրինակ պարբերությունները գտնելու և առանձնացնելու համար հետևյալ VBA կոդը կարող է ձեզ լավություն բերել, արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2, Եվ հետո, կտտացրեք Տեղադրել > Մոդուլներ, պատճենեք և տեղադրեք կոդը ներքևում բացված դատարկ մոդուլի մեջ.

VBA կոդ. Գտեք և ընդգծեք 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, Եվ հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, բոլոր կրկնօրինակ նախադասությունները միանգամից ընդգծվում են, առաջին ցուցադրվող կրկնօրինակ պարբերություններն ընդգծվում են կանաչ գույնով, իսկ մյուս կրկնօրինակները ՝ դեղին գույնով, տե՛ս նկարը.

doc ընդգծիր կրկնօրինակ նախադասություններ 1


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools for Word - Ավելի քան 100 առաջադեմ գործառույթներ Word- ի համար, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Say something here...
symbols left.
You are guest
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.
    Harsh · 5 months ago
    Hi, can anyone please suggest me to prepare a macro in ms word for finding error in paragraph.

    Like:-  
    "and or" 
    "that that" 
    "of the of the" 
    "Sentence end without dot (.)" 
    "New Sentence start with initial caps without ending the sending".
  • To post as a guest, your comment is unpublished.
    Deitsa · 6 months ago
    Thanks so much.
    A very valuable article, helped me with my duplicate copies and paste paragraphs!
    You are awesome.
  • To post as a guest, your comment is unpublished.
    Tom · 1 years ago
    Tried this for my book in MS Word. First, it would not work because I had bullet points. I removed them and then it only found 2 instances "blank page" and "table of contents". I purposely have several sentences repeated, and this macro did not find them. Thank you for trying, but I would say this doesn't work.

  • To post as a guest, your comment is unpublished.
    Peter · 1 years ago
    I had a very long document to process, the code above would take at least 100 days to finish and blocked everything while working at it. The main culprit is the "Set xRng = .Paragraphs(J).Range" which is very slow. I did an alternative version which ran in just 4 hours and presents a continuous report on the processing status and time to end. (To see the report in real time you have to open the "immediate window" by pressing Ctrl+G in the Microsoft Visual Basic for Applications window.) The code works well, except that it predicts a longer time to end than is actually the case (depends on the document). The code is as follows:

    Sub highlightdup()
    Dim StartTime, SecondsElapsed As Date
    Dim secondsPerComparison As Double
    Dim I, J, PC, totalComparisons, comparisonsDone, C, secondsToFinish As Long
    Dim xRngFind, xRng As Range
    Dim xStrg, minutesToFinish As String
    Dim currentParag, nextParag As Paragraph
    'Options.DefaultHighlightColorIndex = wdYellow
    Application.ScreenUpdating = False
    With ActiveDocument
    StartTime = Now()
    C = 0
    PC = .Paragraphs.Count
    totalComparisons = CLng((PC * (PC + 1)) / 2)
    Set currentParag = .Paragraphs(1)
    For I = 1 To PC - 1
    'Debug.Print "processing paragraph " & I & " of a total of " & PC & " " & currentParag.Range.Text
    'Debug.Print Len(currentParag) & currentParag
    If currentParag.Range.HighlightColorIndex <> wdYellow Then
    If currentParag.Range.HighlightColorIndex <> wdBrightGreen Then
    Set nextParag = currentParag
    For J = I + 1 To PC
    Set nextParag = nextParag.Next
    If currentParag.Range.Text = nextParag.Range.Text Then
    currentParag.Range.HighlightColorIndex = wdBrightGreen
    nextParag.Range.HighlightColorIndex = wdYellow
    Debug.Print "found one!! " & " I = " & I & " J = " & J & nextParag.Range.Text
    End If
    Next
    End If
    End If
    DoEvents
    comparisonsDone = PC * (I - 1) + (J - I)
    SecondsElapsed = DateDiff("s", StartTime, Now())
    secondsPerComparison = CLng(SecondsElapsed) / comparisonsDone
    secondsToFinish = CLng(secondsPerComparison * (totalComparisons - comparisonsDone))
    minutesToFinish = Format(secondsToFinish / 86400, "hh:mm:ss")
    elapsedTime = Format(SecondsElapsed / 86400, "hh:mm:ss")
    Debug.Print "Finished procesing paragraph " & I & " of " & PC & ". Elapsed time = " & elapsedTime & ". Time to finish = " & minutesToFinish
    Set currentParag = currentParag.Next
    Next
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      Emmanouil · 3 months ago
      Sir, kindly thank you and please have good winds in your life.
  • To post as a guest, your comment is unpublished.
    helin · 1 years ago
    Hello

    Thank you for the helping

    But how can I find the same sentences in my text?

    Regards
  • To post as a guest, your comment is unpublished.
    Helin · 1 years ago
    Hello

    Thank you for the helping

    But how can I find the same sentences in my text?

    Regards
  • To post as a guest, your comment is unpublished.
    Alex · 2 years ago
    It throws Compile error: Syntax error, the code is 100% as the example.
  • To post as a guest, your comment is unpublished.
    dvid · 3 years 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 · 3 years ago
    Tentei e não funcionou, só da que parou de funcionar.