3 Kaedah Pantas untuk Mencari Teks di Jadual Kata Anda sahaja

Dalam artikel ini, kami dengan senang hati menunjukkan 3 cara cepat untuk mencari teks tertentu dalam jadual Word anda sahaja.

Dengan menggunakan "Cari dan Ganti", fungsi bawaan di Word, anda dapat mencari dan mencari teks tertentu dalam dokumen panjang. Seperti yang anda lihat, ini berdasarkan keseluruhan dokumen. Bagaimana dengan kita mengehadkan julat carian ke jadual Word sahaja? Teruskan membaca untuk melihat perinciannya.

Kaedah 1: Cari Teks dalam Pemilihan

1. Pertama sekali, pilih satu atau beberapa jadual dalam dokumen secara manual.
2. Kemudian klik butang lungsur di sebelah perintah "Cari" di bawah tab "Rumah".
3. Pilih "Cari Lanjutan" untuk membuka kotak dialog "Cari dan Ganti".
4. Masukkan teks carian di kotak teks "Cari apa".
5. Klik tab "Cari Dalam" dan pilih "Pemilihan Semasa".  

Word akan menemui teks dalam pilihan anda sahaja.

Kaedah 2: Cari Teks dalam Jadual

Selain cara biasa, anda boleh memilih untuk menjalankan makro untuk melakukan tugas yang lebih disesuaikan.

1. Mula-mula, letakkan kursor di dalam jadual di mana anda ingin mencari teks.
2. Kemudian tekan "Alt + F11" untuk membuka editor VBA.
3. Klik "Normal" di lajur kiri.
4. Kemudian klik "Insert" dan pilih "Module".
5. Seterusnya klik dua kali modul untuk membukanya.
6. Tampal kod berikut ke dalam modul:

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. Terakhir, klik "Jalankan". Masukkan teks di dalam kotak input dan klik "OK" untuk meneruskan.

Kaedah 3: Cari Teks di Semua Jadual dalam Dokumen

1. Pertama sekali, ulangi langkah dalam kaedah 2 untuk memasang dan menjalankan makro.
2. Seterusnya gantikan makro itu dengan yang berikut:

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. Begitu juga, ketik teks carian di dalam kotak input. Dan klik "OK" untuk meneruskan.

Selamatkan Data Anda dalam Masa

Setelah anda mendapat data yang dikompromikan, ingatlah bahawa data tersebut dapat dipulihkan. Jadi jangan pernah berputus asa sebelum mencuba. Dalam keadaan seperti itu, anda perlu memeriksa cadangan terkini anda, jika ada. Ada peluang baik untuk mengembalikan sebahagian data anda. Selain itu, anda selalu boleh menggunakan doc betulkan alat untuk memulihkan data.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls rosak dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com