Salt la conținutul principal

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.

Cele mai bune instrumente de productivitate de birou

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

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  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 eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera 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 grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Î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 ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
Comments (23)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA script you provide here seems to work only for Latin characters; is there some workaround to get special characters to work.
I work with Sanskrit, which used the Devanagari script, similar to Hindi. (1) The VBA does not accept the Devanagai font nor does it find the Latin characters with diacriticals. For example: It fails miserably if I search for mūlādhāra (मूलाधार). It doesn't seem to recognize the ū or ā, for example, and the Devanagari is a complete loss.

Moreover, does the script recognize spaces between words? If not, how do I get them in there?

Thank you!
This comment was minimized by the moderator on the 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 file trong đó có 2 cột, 1 cột là cụm từ nguồn và cột 2 là cụm từ đích được không? rất cám ơn bạn.
This comment was minimized by the moderator on the site
Hi Nguyễn Phúc Lâm,
I recommand you apply the Batch Find and Replace feature of Kutools for Word (the second method in this post) to solve this problem.
In the Find and Replace dialog box, after creating the two columns you need, you can save the current settings as a scenaria for future use.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
This comment was minimized by the moderator on the 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ông. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
This comment was minimized by the moderator on the site
Hi Nguyễn Phúc Lâm,
Temporarily unable to deal with this problem with VBA code as it is a bit complex. This feature will be considered for upgrade in the next release. Sorry for the inconvenience.
This comment was minimized by the moderator on the site
Thanks for the project, Could you make it the way we can also replace letters in words. For example if i want to change Dollar as DoLLar it does not function.
This comment was minimized by the moderator on the site
In the first instruction (Find And Replace Multiple Words At The Same Time In Word With VBA Code), it does not find instances where the word to be replaced falls in the middle of a word (For example, .com following a website name). Can this be modified to do so?
This comment was minimized by the moderator on the site
What if I'm trying to replace commas?
This comment was minimized by the moderator on the site
The VBA code can't help to replace commas. You can apply Kutools to achieve.
This comment was minimized by the moderator on the site
After hitting Replace it just goes to Preview and doesn't do anything further.
This comment was minimized by the moderator on the site
Hi Ajs,All required words have been successfully replaced at once after hitting the Replace button. It goes to the Preview tab to help you know how many words have been successfully replaced. After that, close the dialog box.
This comment was minimized by the moderator on the site
Hi! First, congratulations for your work: this macro is very useful and interesting! I would like, neverthless, you help me with one thing. I am a proofreader and would like the replacements would highlithed in green or red color. How can I do this? Is there a code line I could use?
This comment was minimized by the moderator on the site
Hi, The Batch Find and Replace feature of Kutools for Word can perfectly solve your problem, you can have a try.
This comment was minimized by the moderator on the site
Hi how can this macro be revised to take more key words? I have about 170 words that I wold like to find and replace
This comment was minimized by the moderator on the site
Hi JM,
After running the code, a Kutools for Excel dialog box will pop up, please enter the keywords you will find and separate them with commas.
This comment was minimized by the moderator on the site
How to find and select multiple words at the same time
This comment was minimized by the moderator on the site
Hi,
After running the code, a Kutools for Excel dialog box will pop up, please enter the keywords you will find and separate them with commas.
This comment was minimized by the moderator on the site
Hi, This works well with English Words. Now I am doing a document where I translate English to Gujarati. So, when I apply this, (Find English Words) and (Replace with Gujarati words), it does change but it appears like "???". Doesn't show the Gujarati word but just question marks? Any further help? Please.
This comment was minimized by the moderator on the site
I'm have a similar problem with Sanskrit, not only the Devanagari script but also the English/Latin diacriticals on the special characters like ā, ū, ṛ, ṁ, ṃ, etc. Any suggestions for a workable fix?
This comment was minimized by the moderator on the site
Hello Shailesh, facing the same issue. Did you find a solution to it. Am also trying to figure out how to change from Chinese to English.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations