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

Cum să găsiți și să înlocuiți mai multe cuvinte în același timp într-un document Word?

Word oferă o funcție Găsiți și înlocuiți pentru a găsi toate instanțele unui cuvânt sau a unei expresii și a le înlocui cu un cuvânt nou în același timp. Dar dacă doriți să găsiți și să înlocuiți diferite cuvinte în același timp, această funcție integrată nu vă poate ajuta. În acest articol, vorbim despre o metodă VBA pentru a găsi și înlocui mai multe cuvinte diferite în același timp în documentul Word.

Găsiți și înlocuiți mai multe cuvinte în același timp în Word cu cod VBA
Găsiți cu ușurință și înlocuiți mai multe cuvinte în același timp în Word cu o caracteristică uimitoare


Găsiți și înlocuiți mai multe cuvinte în același timp în Word cu cod VBA

Vă rugăm să faceți următoarele pentru a găsi și a înlocui mai multe cuvinte în același timp într-un document Word.

1. Deschideți documentul Word pe care doriți să îl găsiți și înlocuiți mai multe cuvinte în același timp, apoi apăsați pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Modul. Apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA: găsiți și înlocuiți mai multe cuvinte în același timp în 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. apasă pe F5 tasta pentru a rula codul.

4. În prima Kutools pentru Cuvânt caseta de dialog, introduceți mai multe cuvinte pe care le veți găsi și înlocui în caseta de text și separați-le cu virgulă, apoi faceți clic pe OK buton. Vedeți captura de ecran:

5. În al doilea Kutools pentru Cuvânt caseta de dialog, introduceți cuvintele noi cu care le veți înlocui (aceste cuvinte trebuie, de asemenea, separate prin virgulă), apoi faceți clic pe OK butonul.

Notă: În acest caz, toate „KTE” în acest document va fi înlocuit cu "Nou", și „KTO” și „KTW” va fi înlocuit cu "Test" și "Finalizarea". Vă rugăm să le modificați în funcție de nevoile dvs.


Găsiți cu ușurință și înlocuiți mai multe cuvinte în același timp în Word cu o caracteristică uimitoare

Găsiți și înlocuiți în lot caracteristică a Kutools pentru Cuvânt vă poate ajuta să găsiți și să înlocuiți cu ușurință diferite texte dintr-un document sau pe mai multe documente în același timp.

Înainte de a aplica această funcție, vă rugăm să luați câteva minute până la descărcați-l și instalați-l mai întâi.

1. Lansați aplicația Microsoft Word, faceți clic pe Kutools Plus > Găsiți și înlocuiți în lot.

2. În Găsiți și înlocuiți în lot fereastra, vă rugăm să configurați după cum urmează.

  • 2.1 faceți clic pe buton> Adauga fisier or Adaugă Folder pentru a adăuga unul sau mai multe documente în care veți găsi și înlocui mai multe cuvinte.
  • 2.2 Faceți clic pe Adăugați un rând pentru a insera câmpurile de căutare și înlocuire. Dacă doriți să găsiți și să înlocuiți trei texte diferite în același timp, vă rugăm să creați trei rânduri.
  • 2.3 În fiecare rând, introduceți cuvintele existente pe care le veți înlocui cu unul nou în Găsi , apoi introduceți cuvintele noi în Înlocui coloana.
  • 2.4 Specificați Tipul de căutare pentru fiecare rând.
  • 2.5 În Gasit in coloană, alegeți unde să aplicați găsirea și înlocuirea. Include Document principal, Antet și Subsol in aceasta sectiune. Puteți alege una dintre ele, două dintre ele sau toate pe baza nevoilor dumneavoastră.
  • 2.6. Faceți clic pe Înlocui pentru a porni operațiunea. Vedeți captura de ecran:

Apoi, cuvintele specifice sunt înlocuite în documentele selectate în același timp.

Sfat: Puteți evidenția rezultatul cu culoare de fundal specificând anumite culori în Evidențiați coloană pentru un rând.

  Dacă doriți să aveți o perioadă de încercare gratuită (60 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Comentarii (21)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?
Acest comentariu a fost redus la minimum de moderatorul de pe site
va funcționa acest lucru în Office Excel 365
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreo modalitate de a face acest caz sensibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Funcționează bine cu cuvintele în engleză. Acum fac un document în care traduc engleza în gujarati. Deci, când aplic acest lucru, (Găsiți cuvinte în engleză) și (Înlocuiți cu cuvinte în gujarati), se schimbă, dar apare ca „???”. Nu arată cuvântul gujarati, ci doar semne de întrebare? Mai mult ajutor? Vă rog.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Shailesh, mă confrunt cu aceeași problemă. Ai găsit o soluție la asta. De asemenea, încerc să îmi dau seama cum să schimb din chineză în engleză.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum să găsiți și să selectați mai multe cuvinte în același timp
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
După rularea codului, va apărea o casetă de dialog Kutools for Excel, vă rugăm să introduceți cuvintele cheie pe care le veți găsi și să le separați cu virgule.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, cum poate fi revizuită această macrocomandă pentru a prelua mai multe cuvinte cheie? Am aproximativ 170 de cuvinte pe care aș dori să le găsesc și să le înlocuiesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut JM,
După rularea codului, va apărea o casetă de dialog Kutools for Excel, vă rugăm să introduceți cuvintele cheie pe care le veți găsi și să le separați cu virgule.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! În primul rând, felicitări pentru munca ta: această macrocomandă este foarte utilă și interesantă! Aș vrea, totuși, să mă ajuți cu un lucru. Sunt corector și aș dori ca înlocuitorii să fie evidențiate în verde sau roșu. Cum pot face acest lucru? Există o linie de cod pe care aș putea să o folosesc?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Funcția de căutare și înlocuire în loturi a Kutools pentru Word vă poate rezolva perfect problema, puteți încerca.
Acest comentariu a fost redus la minimum de moderatorul de pe site
După ce apăsați Înlocuire, merge doar la Previzualizare și nu face nimic mai departe.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Ajs, Toate cuvintele necesare au fost înlocuite cu succes imediat după apăsarea butonului Înlocuire. Se duce la fila Previzualizare pentru a vă ajuta să știți câte cuvinte au fost înlocuite cu succes. După aceea, închideți caseta de dialog.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce se întâmplă dacă încerc să înlocuiesc virgulele?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Codul VBA nu poate ajuta la înlocuirea virgulelor. Puteți aplica Kutools pentru a obține.
Acest comentariu a fost redus la minimum de moderatorul de pe site
În prima instrucțiune (Găsiți și înlocuiți mai multe cuvinte în același timp în cuvânt cu cod VBA), nu găsește cazuri în care cuvântul care trebuie înlocuit se află în mijlocul unui cuvânt (de exemplu, .com după numele unui site web) . Poate fi modificat pentru a face acest lucru?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim pentru proiect, ați putea să o faceți așa cum putem înlocui și literele în cuvinte. De exemplu, dacă vreau să schimb un dolar cu un dolar, nu funcționează.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Chào bạn, có cách nào thay thế rất nhiều cụm từ bằng rất nhiều cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một fișier trong đ ng àt 2 l à cụm từ đích được không? rất cám ơn bạn.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Nguyễn Phúc Lâm,
Vă recomand să aplicați caracteristica Găsire și înlocuire în loturi a Kutools for Word (a doua metodă din această postare) pentru a rezolva această problemă.
În caseta de dialog Găsiți și înlocuiți, după ce ați creat cele două coloane de care aveți nevoie, puteți salva setările curente ca scenariu pentru utilizare ulterioară.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Acest comentariu a fost redus la minimum de moderatorul de pe site
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 .. cụm từ) thì rất khó ể ể ể có thể nhập th ì cất kh. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Nguyễn Phúc Lâm,
Nu se poate rezolva temporar această problemă cu codul VBA, deoarece este puțin complex. Această caracteristică va fi luată în considerare pentru upgrade în următoarea versiune. Îmi pare rău pentru neplăcerile create.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL