Ana içeriğe atla

Bir Word belgesinde aynı anda birden fazla kelime nasıl bulunur ve değiştirilir?

Word, bir kelime veya kelime öbeğinin tüm örneklerini bulmak ve bunları aynı anda yeni bir kelimeyle değiştirmek için bir Bul ve Değiştir işlevi sağlar. Ancak aynı anda farklı kelimeleri bulmak ve değiştirmek istiyorsanız, bu yerleşik işlev yardımcı olamaz. Bu yazıda, Word belgesinde aynı anda birden çok farklı kelimeyi bulup değiştirmek için bir VBA yönteminden bahsediyoruz.

Word'de aynı anda birden çok kelimeyi VBA kodu ile bulun ve değiştirin
Harika bir özellikle Word'de aynı anda birden çok kelimeyi kolayca bulun ve değiştirin


Word'de aynı anda birden çok kelimeyi VBA kodu ile bulun ve değiştirin

Bir Word belgesinde aynı anda birden çok sözcüğü bulmak ve değiştirmek için lütfen aşağıdaki işlemleri yapın.

1. Bulmak ve birden çok kelimeyi aynı anda değiştirmek istediğiniz Word belgesini açın ve ardından Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > Modülü. Ardından, VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Word'de aynı anda birden çok kelimeyi bulun ve değiştirin

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. Tuşuna basın. F5 kodu çalıştırmak için anahtar.

4. İlkinde Kutools for Word iletişim kutusunda bulup değiştireceğiniz birden çok kelimeyi metin kutusuna girin ve bunları virgülle ayırın, ardından OK buton. Ekran görüntüsüne bakın:

5. saniyede Kutools for Word iletişim kutusunda, değiştireceğiniz yeni kelimeleri girin (bu kelimelerin de virgülle ayrılması gerekir) ve ardından OK düğmesine basın.

Not: Bu durumda tümü "KTE" bu belgede şununla değiştirilecektir: "Yeni", ve "KTO" ve "KTW" ile değiştirilecek "Ölçek" ve "Bitiş". Lütfen ihtiyaçlarınıza göre değiştirin.


Harika bir özellikle Word'de aynı anda birden çok kelimeyi kolayca bulun ve değiştirin

The Toplu Bul ve Değiştir özelliği Kutools for Word bir belgedeki veya birden çok belge arasındaki farklı metinleri aynı anda kolayca bulup değiştirmenize yardımcı olabilir.

Bu özelliği uygulamadan önce lütfen birkaç dakikanızı ayırın önce indirin ve kurun.

1. Microsoft Word uygulamasını başlatın, tıklayın Kutools Artı > Toplu Bul ve Değiştir.

2. içinde Toplu Bul ve Değiştir penceresi, lütfen aşağıdaki gibi yapılandırın.

  • 2.1 tıklayın düğmesi> Dosya Ekle or Klasör Ekle Birden çok kelimeyi bulup değiştireceğiniz bir veya daha fazla belge eklemek için.
  • 2.2 Satır ekle Bul ve değiştir alanlarını eklemek için düğmesine basın. Üç farklı metni aynı anda bulmak ve değiştirmek istiyorsanız, lütfen üç satır oluşturun.
  • 2.3 Her satırda, yerine yenisiyle değiştireceğiniz mevcut kelimeleri girin. bulmak sütununa girin ve ardından yeni kelimeleri değiştirmek sütun.
  • 2.4 Belirtin Arama Tipi her sıra için.
  • 2.5 içinde Bulmak sütununda bul ve değiştir'in nereye uygulanacağını seçin. O içerir Ana belge, üstbilgi ve Altbilgi bu bölümde. İhtiyaçlarınıza göre bunlardan birini, ikisini veya hepsini seçebilirsiniz.
  • 2.6. Tıklayın değiştirmek İşlemi başlatmak için düğmesine basın. Ekran görüntüsüne bakın:

Daha sonra belirli sözcükler aynı anda seçilen belgelerde değiştirilir.

Bahşiş: Sonuçta belirli bir rengi belirterek arka plan rengiyle vurgulayabilirsiniz. Vurgulamak satır için sütun.

  Bu yardımcı programın ücretsiz denemesine (60 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

En İyi Ofis Üretkenlik Araçları

Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!

🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur  /  Metni Yeniden Yaz  /  Belgeleri Özetleyin  /  Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de

📘 Belge Ustalığı: Sayfaları Böl  /  Belgeleri Birleştir  /  Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...)  /  PDF'ye Toplu Dönüştürme  /  Sayfaları Görüntü Olarak Dışa Aktar  /  Aynı Anda Birden Çok Dosyayı Yazdırma...

İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada  /  Tüm Resimleri Yeniden Boyutlandır  /  Tablo Satırlarını ve Sütunlarını Yer Değiştirme  /  Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar  /  Bölüm Sonları  /  Tüm Başlıklar  /  Metin kutuları  /  Köprüler  / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...

Yaratıcı Ekler: Ekle Bin Ayırıcı  /  Onay Kutuları  /  Radyo Düğmeleri  /  QR Code  /  Barkod  /  Çapraz Çizgi Tablosu  /  Denklem Başlığı  /  Görüntü Başlık  /  Tablo başlığı  /  Çoklu Resimler  / Daha fazlasını şurada keşfedin: Grup Ekle...

🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar  /  tablolar  /  şekiller  /  başlık paragrafları  / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...

Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin  /  tekrarlanan metni otomatik olarak ekle  /  belge pencereleri arasında sorunsuzca geçiş yapın  /  11 Dönüşüm Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????
 
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