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

Sut i ddod o hyd i eiriau lluosog a'u disodli ar yr un pryd mewn dogfen Word?

Mae Word yn darparu swyddogaeth Darganfod ac Amnewid i ddod o hyd i bob enghraifft o air neu ymadrodd a rhoi gair newydd yn eu lle ar yr un pryd. Ond os ydych chi am ddod o hyd i wahanol eiriau a'u disodli ar yr un pryd, ni all y swyddogaeth adeiladu hon helpu. Yn yr erthygl hon, rydym yn siarad am ddull VBA i ddarganfod a disodli sawl gair gwahanol ar yr un pryd yn nogfen Word.

Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn Word gyda chod VBA
Hawdd dod o hyd i eiriau lluosog a'u disodli ar yr un pryd yn Word gyda nodwedd anhygoel


Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn Word gyda chod VBA

Gwnewch fel a ganlyn i ddod o hyd i air lluosog a'i ddisodli ar yr un pryd mewn dogfen Word.

1. Agorwch y ddogfen Word rydych chi am ddod o hyd iddi a newid geiriau lluosog ar yr un pryd, yna pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Darganfyddwch a disodli geiriau lluosog ar yr un pryd yn Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

3. Gwasgwch y F5 allwedd i redeg y cod.

4. Yn y cyntaf Kutools am Word blwch deialog, nodwch y geiriau lluosog y byddwch yn dod o hyd iddynt a'u disodli yn y blwch testun, a'u gwahanu â choma, yna cliciwch ar y OK botwm. Gweler y screenshot:

5. Yn yr ail Kutools am Word blwch deialog, nodwch y geiriau newydd y byddwch chi'n eu disodli (mae angen gwahanu'r geiriau hyn â choma hefyd), ac yna cliciwch ar y OK botwm.

Nodyn: Yn yr achos hwn, i gyd “KTE” yn y ddogfen hon bydd "Newydd", ac “KTO” ac “KTW” yn cael ei ddisodli gan “Prawf” ac "Gorffen". Os gwelwch yn dda eu newid i'ch anghenion.


Hawdd dod o hyd i eiriau lluosog a'u disodli ar yr un pryd yn Word gyda nodwedd anhygoel

Mae Swp Dod o Hyd i ac Amnewid nodwedd o Kutools am Word gall helpu i ddod o hyd i wahanol destunau a'u disodli mewn dogfen neu ar draws sawl dogfen ar yr un pryd.

Cyn defnyddio'r nodwedd hon, cymerwch funudau i ei lawrlwytho a'i osod yn gyntaf.

1. Lansio cymhwysiad Microsoft Word, cliciwch Kutools Byd Gwaith > Swp Dod o Hyd i ac Amnewid.

2. Yn y Swp Dod o Hyd i ac Amnewid ffenestr, ffurfweddwch fel a ganlyn.

  • 2.1 cliciwch y botwm> Ychwanegu Ffeil or Ychwanegu Ffolder i ychwanegu un neu fwy o ddogfennau lle byddwch chi'n dod o hyd i eiriau lluosog ac yn eu lle.
  • 2.2 Cliciwch y Ychwanegu rhes botwm i fewnosod y meysydd darganfod a disodli. Os ydych chi am ddod o hyd i dri thestun gwahanol a'u disodli ar yr un pryd, crëwch dair rhes.
  • 2.3 Ymhob rhes, nodwch y geiriau presennol y byddwch yn eu disodli gydag un newydd yn y Dod o hyd i colofn, ac yna rhowch y geiriau newydd i mewn i'r Disodli colofn.
  • 2.4 Nodwch y Math Chwilio ar gyfer pob rhes.
  • 2.5 Yn y Dewch o hyd i mewn colofn, dewiswch ble i gymhwyso'r darganfyddiad a'i ddisodli. Mae'n cynnwys Prif ddogfen, Pennawd ac Troedyn yn yr adran hon. Gallwch ddewis un ohonynt, dau ohonynt neu bob un ohonynt yn seiliedig ar eich anghenion.
  • 2.6. Cliciwch ar y Disodli botwm i ddechrau'r llawdriniaeth. Gweler y screenshot:

Yna mae'r geiriau penodol yn cael eu disodli mewn dogfennau dethol ar yr un pryd.

Tip: Gallwch dynnu sylw at y canlyniad gyda lliw cefndir trwy nodi lliw penodol yn y Amlygu colofn am res.

  Os ydych chi am gael treial am ddim (60 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


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 (21)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a fydd hyn yn gweithio yn swyddfa Excel 365
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ffordd o wneud yr achos hwn yn sensitif?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mae hyn yn gweithio'n dda gyda Geiriau Saesneg. Nawr rydw i'n gwneud dogfen lle dwi'n cyfieithu Saesneg i Gujarati. Felly, pan fyddaf yn cymhwyso hyn, (Dod o hyd i Geiriau Saesneg) a (Amnewid gyda geiriau Gujarati), mae'n newid ond mae'n ymddangos fel "???". Nid yw'n dangos y gair Gujarati ond marciau cwestiwn yn unig? Unrhyw help pellach? Os gwelwch yn dda.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Shailesh, yn wynebu'r un mater. A wnaethoch chi ddod o hyd i ateb iddo. Rwyf hefyd yn ceisio darganfod sut i newid o Tsieinëeg i Saesneg.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i ddarganfod a dewis geiriau lluosog ar yr un pryd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Ar ôl rhedeg y cod, bydd blwch deialog Kutools ar gyfer Excel yn ymddangos, rhowch yr allweddeiriau y byddwch yn dod o hyd iddynt a'u gwahanu â choma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo sut y gellir adolygu'r macro hwn i gymryd mwy o eiriau allweddol? Mae gennyf tua 170 o eiriau yr hoffwn eu canfod a'u disodli
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo JM,
Ar ôl rhedeg y cod, bydd blwch deialog Kutools ar gyfer Excel yn ymddangos, rhowch yr allweddeiriau y byddwch yn dod o hyd iddynt a'u gwahanu â choma.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Yn gyntaf, llongyfarchiadau ar eich gwaith: mae'r macro hwn yn ddefnyddiol ac yn ddiddorol iawn! Hoffwn, serch hynny, i chi fy helpu gydag un peth. Rwy'n brawfddarllenydd a hoffwn pe bai lliw gwyrdd neu goch yn lliw gwyrdd i'r rhai newydd. Sut alla i wneud hyn? A oes llinell god y gallwn ei defnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gall nodwedd Dod o Hyd i Swp ac Amnewid o Kutools ar gyfer Word ddatrys eich problem yn berffaith, gallwch chi gael cynnig arni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl taro Replace mae'n mynd i Rhagolwg yn unig ac nid yw'n gwneud dim byd pellach.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ajs, Mae'r holl eiriau gofynnol wedi'u disodli'n llwyddiannus ar unwaith ar ôl taro'r botwm Amnewid. Mae'n mynd i'r tab Rhagolwg i'ch helpu chi i wybod faint o eiriau sydd wedi'u disodli'n llwyddiannus. Ar ôl hynny, caewch y blwch deialog.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i'n ceisio cael atalnodau newydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni all y cod VBA helpu i ddisodli coma. Gallwch chi wneud cais Kutools i gyflawni.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn y cyfarwyddyd cyntaf (Canfod Ac Amnewid Geiriau Lluosog Ar Yr Un Amser Mewn Word Gyda Chod VBA), nid yw'n dod o hyd i achosion lle mae'r gair sydd i'w ddisodli yn disgyn yng nghanol gair (Er enghraifft, .com yn dilyn enw gwefan) . A ellir addasu hyn i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y prosiect, A allech chi ei wneud y ffordd y gallwn hefyd ddisodli llythrennau mewn geiriau. Er enghraifft, os wyf am newid DoLLar fel DoLLar nid yw'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Chào bạn, Có cch nào thay thế rất nhiều cụm từ bằng rấn nhiều cụu cụm từ khác (nhập từng cụm từ rất mất mất cột thời gian) bằng từn lập fice cá cá cá cá mộp mộp mộp mtion, fice cáin cáin, bằn mộn fice cáin, bằn mộn mộn fice cán ficE cá cụm từ đích được không? rất cám ơn bạn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nguyễn Phuc Lâm,
Rwy'n argymell ichi gymhwyso'r Swp Dod o Hyd ac Amnewid nodwedd o Kutools ar gyfer Word (yr ail ddull yn y swydd hon) i ddatrys y broblem hon.
Yn y Canfod ac Amnewid blwch deialog, ar ôl creu'r ddwy golofn sydd eu hangen arnoch, gallwch arbed y gosodiadau presennol fel senario i'w defnyddio yn y dyfodol.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cám ơn Crystal, Cách này Có thể Áp dụng với Một Số lượng NHỏ Các Cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nguyễn Phuc Lâm,
Methu â delio â'r broblem hon gyda chod VBA dros dro gan ei fod ychydig yn gymhleth. Bydd y nodwedd hon yn cael ei hystyried ar gyfer uwchraddio yn y datganiad nesaf. Ymddiheuriadau am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir