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

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.

---

Önerilen Word Üretkenlik Araçları

 

Kutools For Word - Word İçin 100'den Fazla Gelişmiş Özellik,% 50 Zaman Kazanın

• Karmaşık ve tekrarlanan işlemler saniyeler içinde tek seferlik işlem yapılabilir.
• Klasörler arasında birden çok görüntüyü aynı anda Word belgesine ekleyin.
• Birden çok Word dosyasını klasörler arasında istediğiniz sırada birleştirin ve birleştirin.
• Geçerli belgeyi başlık, bölüm sonu veya diğer kriterlere göre ayrı belgelere bölün.
• Dosyaları Doc ve Docx, Docx ve PDF, ortak dönüştürme ve seçim için araçlar koleksiyonu vb. Arasında dönüştürün ...

Devamını Oku Hemen İndir Satın alma