Bir Word Belgesinde Aynı Anda Birden Fazla Öğe Bulmanın 2 Hızlı Yolu

Bu yazımızda, bir Word belgesinde aynı anda birden fazla öğeyi bulmanın 2 hızlı yolunu göstermeye odaklanacağız.

Word'e aşina olan herkesin “Bul ve Değiştir” seçeneğini oldukça iyi bilmesi gerekir. Bulgu metni ardışık bir dize olduğunda iyi çalışır. Ancak, ne yazık ki, aynı anda birden fazla ayrı kelimeyi aramak istediğimizde işler karmaşıklaşıyor. Ve orada, tek bir hareketle bir belgede bir kelime veya kelime öbeği listesi çıkarmak için güçlü bir talep var. Örneğin, bir editörseniz, hiçbir belgede asla bulunmaması gereken birkaç kelime olabilir. Öyleyse, bazı belirli kelimelerin tekrarını işaretlemek için geçici çözümlere ihtiyacınız olacak.

İşte 2 çözüm mevcut:

Yöntem 1: Hariç Tutma Sözlüğüne Sözcükleri İçe Aktar

Word'deki dışlama sözlüğüne bir grup kelime veya kelime öbeği ekleyin ve ardından eşleşen kelimelerin altında onları işaretlemek için kırmızı bir dalga çizgisi görünecektir.

Hariç tutma sözlüğüne kelime eklemek için ayrıntılı adımlar bu makalede yer almaktadır: Kelime Yazımı ve Dilbilgisi Denetleyicisi İçin 4 Yararlı İpucu

Yöntem 2: Word Makrosunu Kullan

1. Öncelikle, aramak istediğiniz tüm kelimeleri tek bir belgeye yazın. Her kelime veya kelime öbeği bir paragrafı kaplamalıdır. Buna "liste belgesi" diyelim. Belgeyi kaydedin.
2. İkinci olarak, "Geliştirici" sekmesine tıklayın.
3. Ardından VBA düzenleyicisini açmak için “Visual Basic”e tıklayın. Alternatif yol, "Alt + F11" tuşlarına basmaktır.
4. Ardından “Normal” ve ardından “Ekle” sekmesine tıklayın.
5. Ve menüden “Modül”ü seçin.
6. Düzenleme alanını ortaya çıkarmak için yeni modüle çift tıklayın ve aşağıdaki makroyu buraya yapıştırın:

Sub FindMultiItemsInDoc()
  Dim objListDoc As Document
  Dim objTargetDoc As Document
  Dim objParaRange As Range, objFoundRange As Range
  Dim objParagraph As Paragraph
  Dim strFileName As String

  strFileName = InputBox("Enter the full name of the list document here:")
 
  Set objTargetDoc = ActiveDocument
  Set objListDoc = Documents.Open(strFileName)
  objTargetDoc.Activate
 
  For Each objParagraph In objListDoc.Paragraphs
    Set objParaRange = objParagraph.Range
    objParaRange.End = objParaRange.End - 1
 
      With Selection
        .HomeKey Unit:=wdStory
 
        '  Find target items.
        With Selection.Find
          .ClearFormatting
          .Text = objParaRange
          .MatchWholeWord = True
          .MatchCase = False
          .Execute
        End With
 
        '  Highlight the found items.
        Do While .Find.Found
          Set objFoundRange = Selection.Range
          objFoundRange.HighlightColorIndex = wdBrightGreen
          .Collapse wdCollapseEnd
          .Find.Execute
        Loop
      End With
  Next objParagraph
End Sub

7. Son olarak, "Çalıştır" ı tıklayın.
8. Şimdi bir kutu var. Az önce kaydettiğiniz liste belgesinin yolunu ve adını girin. Ardından "Tamam"a tıklayın.

Gördüğünüz bir sonraki şey, bulunan tüm kelimelerin vurgulandığıdır.

Word Belgelerinizi Güvenli Hale Getirin

Word belgelerinizin bozulmasını önlemenin en popüler yöntemlerinden biri yedekleme yapmaktır. Bu, bir sorunla karşılaştığınızda size gönül rahatlığı sağlayabilir. hasarlı docx. Bu nedenle, önemli dosyalarınızı hemen şimdi yedeklemek için zaman ayırın.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk xlsx hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com