Note: The other languages of the website are Google-translated. Back to English

Sut i ddarganfod ac amlygu paragraffau dyblyg yn nogfen Word?

Gan dybio, mae gennych ddogfen Word fawr a allai fod â channoedd o dudalennau, nawr, rydych chi am wirio a oes paragraffau dyblyg ac yna tynnu sylw atynt i'w gwneud yn rhagorol, fel y gallwch ddelio â'r brawddegau dyblyg. Sut allech chi ddarganfod ac amlygu'r paragraffau dyblyg yn gyflym ac yn hawdd yn nogfen Word?

Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen Word gyda chod VBA


Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen Word gyda chod VBA

I ddarganfod ac amlygu'r paragraffau dyblyg mewn dogfen Word, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Darganfyddwch ac amlygwch y paragraffau dyblyg yn nogfen 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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, amlygir yr holl frawddegau dyblyg ar unwaith, amlygir y paragraffau dyblyg cyntaf a arddangosir gyda lliw gwyrdd, ac amlygir dyblygu eraill â lliw melyn, gweler y screenshot:

doc tynnu sylw at frawddegau dyblyg 1


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (15)
Wedi graddio 4.5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Tentei e não funcionou, só da que parou de funcionar.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ceisiais, ac mae'n gweithio'n iawn!
O'n i jest isho gwybod - a allwn i wneud yr un peth - ond nid paragraff cyfan, ond brawddeg gydag ychydig o eiriau byddwn i wedi'i sefydlu - fel 10 gair?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n taflu Gwall Llunio: Gwall cystrawen, mae'r cod yn 100% fel yr enghraifft.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo

Diolch am y cymorth

Ond sut mae dod o hyd i'r un brawddegau yn fy nhestun?

Regards
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo



Diolch am y cymorth



Ond sut mae dod o hyd i'r un brawddegau yn fy nhestun?



Regards
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd gen i ddogfen hir iawn i'w phrosesu, byddai'r cod uchod yn cymryd o leiaf 100 diwrnod i'w orffen ac yn rhwystro popeth wrth weithio arno. Y prif droseddwr yw'r "Set xRng = .Paragraphs(J).Range" sy'n araf iawn. Fe wnes i fersiwn amgen a oedd yn rhedeg mewn dim ond 4 awr ac sy'n cyflwyno adroddiad parhaus ar y statws prosesu a'r amser i ddod i ben. (I weld yr adroddiad mewn amser real mae'n rhaid i chi agor y "ffenestr ar unwaith" trwy wasgu Ctrl+G yn ffenestr Microsoft Visual Basic for Applications.) Mae'r cod yn gweithio'n dda, ac eithrio ei fod yn rhagweld amser hirach i ddod i ben nag sydd mewn gwirionedd. achos (yn dibynnu ar y ddogfen). Mae'r cod fel a ganlyn:

Is-amlygiad()
Amser Cychwyn Dim, eiliadau wedi mynd heibio fel dyddiad
Dim eiliadPerCymharu Fel Dwbl
Dim I, J, PC, cyfanswm Cymariaethau, cymariaethau Wedi'i Wneud, C, eiliadauToGorffen Cyn Hir
Dim xRngFind, xRng Fel Ystod
Dim xStrg, munudauI Gorffen Fel Llinynnol
Dim cyfredolParag, nesafParag Fel Paragraph
' Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = Anghywir
Gyda ActiveDocument
StartTime = Nawr()
C = 0
PC = .Paragraphs.Count
totalComparisons = CLng((PC * (PC + 1)) / 2)
Gosod cyfredolParag = .Paragraffau(1)
Ar gyfer I = 1 I PC - 1
'Debug.Print "paragraff prosesu" &I & " o gyfanswm o " &PC& " " & currentParag.Range.Text
'Debug.Print Len(currentParag) & currentParag
If currentParag.Range.HighlightColorIndex <> wdYellow Yna
If currentParag.Range.HighlightColorIndex <> wdBrightGreen Yna
Gosod nextParag = currentParag
Ar gyfer J = I + 1 I PC
Gosod nextParag = nextParag.Next
If currentParag.Range.Text = nextParag.Range.Text Yna
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print "canfod un!" & " I = " &I & " J = " & J & nextParag.Range.Text
Gorffennwch Os
Digwyddiadau
Gorffennwch Os
Gorffennwch Os
DoDigwyddiadau
cymariaethauDone = PC * (I - 1) + (J - I)
SecondsElapsed = DyddiadDiff("s", StartTime, Now())
secondsPerComparison = CLng(SecondsElapsed) / ComparesDone
secondsToFinish = CLng(eiliadauPerComparison * (cyfanswm Cymhariadau - cymariaethauDone))
minutesToFinish = Fformat(eiliadauToFinish / 86400, "hh:mm:ss")
elapsedTime = Fformat(SecondsElapsed / 86400, "hh:mm:ss")
Debug.Print "Gorffennwyd prosesu paragraff" &I & " o " &PC & " . Wedi mynd heibio = " &aphasedTime & " . Amser i orffen = " & munudauToFinish
Gosod currentParag = currentParag.Next
Digwyddiadau
Diwedd Gyda
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Syr, diolch yn garedig a chael gwyntoedd da yn eich bywyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr iawn, mae'n gweithio'n berffaith ac yn gyflym iawn!

Paul (o Ffrainc)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch, fe wnaethoch chi arbed fy niwrnod eisoes ddwywaith. Mae'r gwaith hwn fel hud.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno! Diolch yn fawr iawn am y cod hwn. Pan geisiais ei ddefnyddio am y tro cyntaf roedd gwall cystrawen a oedd yn dal i ymddangos. Ond, wrth edrych ar y cod uchod a'r cod hwn, des o hyd i ffordd i wneud iddo weithio a gwnes i feddwl y gallai fod o gymorth i rywun arall: (Dilynwch y cyfarwyddiadau uchod ond copïwch a gludwch hwn yn lle) os ydych chi'n darganfod bod eich un chi yn cael Gwall cystrawen fel fy un i.

PC = .Paragraphs.Count
totalComparisons = CLng((PC * (PC + 1)) / 2)
Gosod cyfredolParag = .Paragraffau(1)
Ar gyfer I = 1 I PC - 1
'Debug.Print "paragraff prosesu" &I & " o gyfanswm o " &PC& " " & currentParag.Range.Text
'Debug.Print Len(currentParag) & currentParag
If currentParag.Range.HighlightColorIndex <> wdYellow Yna
If currentParag.Range.HighlightColorIndex <> wdBrightGreen Yna
Gosod nextParag = currentParag
Ar gyfer J = I + 1 I PC
Gosod nextParag = nextParag.Next
If currentParag.Range.Text = nextParag.Range.Text Yna
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print "dod o hyd i un!" " &amp; " I = " &amp; Rwy'n &amp; " J = " &amp; J & amp; nextParag.Range.Text
Gorffennwch Os
Digwyddiadau
Gorffennwch Os
Gorffennwch Os
DoDigwyddiadau
cymariaethauDone = PC * (I - 1) + (J - I)
SecondsElapsed = DyddiadDiff("s", StartTime, Now())
secondsPerComparison = CLng(SecondsElapsed) / ComparesDone
secondsToFinish = CLng(eiliadauPerComparison * (cyfanswm Cymhariadau - cymariaethauDone))
minutesToFinish = Fformat(eiliadauToFinish / 86400, "hh:mm:ss")
elapsedTime = Fformat(SecondsElapsed / 86400, "hh:mm:ss")
Debug.Print "Paragraff prosesu gorffenedig" &amp; Rwy'n &amp; " o " &amp; PC & amp; " . Wedi mynd heibio = " &amp; Aeth Amser & amp; " . Amser i orffen = " &amp; munud i Gorffen
Gosod currentParag = currentParag.Next
Digwyddiadau
Diwedd Gyda
Is-End
Wedi graddio 4.5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi trio hwn ar gyfer fy llyfr yn MS Word. Yn gyntaf, ni fyddai’n gweithio oherwydd roedd gennyf bwyntiau bwled. Tynnais nhw ac yna dim ond 2 enghraifft y daeth o hyd i "tudalen wag" a "tabl cynnwys". Yn bwrpasol mae gennyf sawl brawddeg wedi'u hailadrodd, ac ni ddaeth y macro hwn o hyd iddynt. Diolch i chi am drio, ond byddwn i'n dweud nad yw hyn yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch gymaint. Erthygl werthfawr iawn, wedi fy helpu gyda'm copïau dyblyg a gludo paragraffau! Rydych chi'n anhygoel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a all unrhyw un awgrymu imi baratoi macro yn ms word ar gyfer canfod gwall ym mharagraff.
Fel:- "a neu" "bod" "o'r" "Ddiwedd y frawddeg heb ddot (.)" "Dechrau'r frawddeg newydd gyda chapiau cychwynnol heb ddiweddu'r anfon".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi, mình chạy đoạn code trên nhưng không thấy ra kết quả giống bhài viết, mình dùng gair 2019, Ad cefnogaeth giúp mình nhé 
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi fy helpu nid yw'n gweithio allwch chi helpuhttps://1drv.ms/w/s!Aja8bo-tfhqb-FVWcGUyvYPv07cX?e=lgJ4i1
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir