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

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.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Solicitați informații pe baza Documentului, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...

➕ Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie pagini specifice  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

⭐ Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀

Descărcare gratuită     Citeste mai mult     Cumpară acum