Yalnızca Kelime Tablolarınızda Metin Bulmak İçin 3 Hızlı Yöntem

Bu makalede, yalnızca Word tablolarınızda belirli bir metni bulmanın 3 hızlı yolunu göstermekten memnuniyet duyuyoruz.

Word'de yerleşik bir işlev olan "Bul ve Değiştir" özelliğini kullanarak, uzun bir belgede belirli bir metni arayabilir ve bulabilirsiniz. Gördüğünüz gibi, bu tüm belgeye dayanmaktadır. Arama aralığını yalnızca Word tablolarıyla sınırlandırmaya ne dersiniz? Ayrıntıları görmek için okumaya devam edin.

Yöntem 1: Seçimde Metin Bul

1. Her şeyden önce, belgede bir veya daha fazla tabloyu manuel olarak seçin.
2. Ardından, "Giriş" sekmesi altındaki "Bul" komutunun yanındaki açılır düğmeyi tıklayın.
3. “Bul ve Değiştir” iletişim kutusunu açmak için “Gelişmiş Bul”u seçin.
4. "Neyi bul" metin kutusuna bulma metnini girin.
5. “Bul” sekmesine tıklayın ve “Geçerli Seçim”i seçin.  

Word, yalnızca seçiminizdeki metni bulacaktır.

Yöntem 2: Tabloda Metin Bul

Her zamanki yolun yanı sıra, daha özelleştirilmiş görevler yapmak için makro çalıştırmayı seçebilirsiniz.

1. Öncelikle, imleci metni bulmak istediğiniz bir tablonun içine getirin.
2. Ardından VBA editörünü açmak için “Alt+ F11” tuşlarına basın.
3. Sol sütunda "Normal"i tıklayın.
4. Ardından “Ekle”ye tıklayın ve “Modül”ü seçin.
5. Daha sonra modülü açmak için çift tıklayın.
6. Aşağıdaki kodları modüle yapıştırın:

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Son olarak, "Çalıştır" ı tıklayın. Giriş kutusuna bir metin girin ve devam etmek için “Tamam”a tıklayın.

Yöntem 3: Bir Belgedeki Tüm Tablolardaki Metni Bul

1. Öncelikle, makroyu yüklemek ve çalıştırmak için 2. yöntemdeki adımları tekrarlayın.
2. Sonra bu makroyu bununla değiştirin:

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Benzer şekilde, arama metnini giriş kutusuna yazın. Ve devam etmek için "Tamam" ı tıklayın.

Verilerinizi Zamanında Kurtarın

Güvenliği ihlal edilmiş verileri aldıktan sonra, bunların kurtarılabilir olduğunu unutmayın. Bu yüzden denemeden asla pes etmeyin. Bu gibi durumlarda, varsa en son yedeğinizi kontrol etmeniz gerekir. Verilerinizin bir kısmını geri almak için iyi bir şans var. Ayrıca, her zaman başvurabilirsiniz doktor düzeltme verileri kurtarmak için bir araç.

Yazar Tanıtımı:

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