3 Cara Efektif untuk Menelusuri dengan Kotak Teks di Dokumen Word Anda

Pada artikel ini, kami dengan senang hati menunjukkan kepada Anda 3 cara efektif untuk menelusuri dengan kotak teks di dokumen Word Anda.

Ada perintah "Select Browse Object" di Word yang memungkinkan Anda untuk menelusuri hanya objek yang Anda pilih. Misalnya, Anda dapat memilih untuk menelusuri menurut tabel atau halaman. Sayangnya, tidak ada fungsi bawaan untuk menjelajah dengan kotak teks. Oleh karena itu, kami akan memberikan 3 cara untuk melakukannya.

Metode 1: Gunakan Tombol "Tab"

1. Pertama, tekan “Ctrl+Home” untuk kembali ke awal dokumen.
2. Kemudian cari dan klik kotak teks pertama.
3. Selanjutnya tekan "Tab" untuk melompat ke kotak teks berikutnya.

Ngomong-ngomong, cara ini juga akan menemukan Anda bentuk dan gambar di dokumen.

Metode 2: Jalankan Makro untuk Melompat dari Satu Kotak Teks ke Kotak Teks lainnya

1. Pertama dan terpenting, tekan “Alt+F11” untuk mengaktifkan editor VBA di Word.
2. Selanjutnya klik "Normal".
3. Kemudian klik "Sisipkan" dan pilih "Modul" pada menu tarik-turunnya.
4. Buka modul baru dengan klik dua kali.
5. Sekarang di area pengkodean, tempel kode berikut:

Sub BrowseByTextBox()
  Dim objShape As Shape
  Dim strBoxText As String
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      strBoxText = objShape.TextFrame.TextRange.Text
      strButtonValue = MsgBox("This text box contains: " & vbNewLine _
                       & strBoxText & vbNewLine & "Is this your desired text box?" _
                       & vbNewLine, vbYesNo, "Desired Text Box")
      If strButtonValue = vbYes Then
        Exit Sub
      End If
    End If
  Next objShape
End Sub

6. Klik tombol "Run" pada menu bar atau tekan "F5" untuk menjalankan kode.

Setelah Anda mulai menjalankan makro, akan muncul kotak pesan, seperti di bawah ini:

Pada kotak tersebut memperlihatkan konten dalam kotak teks yang dipilih saat ini. Anda dapat mengklik "Ya" untuk menghentikannya jika itu kotak teks yang Anda inginkan. Jika tidak, klik "Tidak" untuk pergi ke kotak teks berikutnya.

Metode 3: Temukan Kotak Teks Tertentu

Jika Anda menetapkan judul untuk kotak teks dalam dokumen, Anda bisa menggunakannya dalam kombinasi dengan makro di bawah untuk segera menemukannya.

1. Pertama-tama, lihat langkah-langkah di metode 2 untuk menginstal dan menjalankan makro.
2. Kemudian ingatlah untuk mengganti makro dengan yang ini:

Sub FindASpecificTextBox()
  Dim objShape As Shape
  Dim strBoxTitle As String
  Dim objInlineShape As InlineShape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objShape
  For Each objInlineShape In objDoc.InlineShapes
    If objInlineShape.Type = msoTextBox Then
      objInlineShape.Select
      Selection.ShapeRange.TextFrame.TextRange.Select
      If objInlineShape.Title = strBoxTitle Then
        Exit Sub
      End If
    End If
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub

3. Selanjutnya, pada kotak input yang muncul, masukkan judul kotak teks yang ingin dicari dan klik “OK” untuk melanjutkan. Anda akan menemukan kotak teks target dalam pilihan.

Mengatasi Kehilangan Data

Mengingat Word adalah salah satu perangkat lunak yang paling banyak digunakan, penting untuk mengetahui beberapa trik ketika Word berhenti merespons. Untuk hal-hal penting dokumen korup, satu-satunya pilihan Anda adalah memulihkannya. Dan untuk melakukan ini, Anda perlu memilih alat pihak ketiga yang dapat Anda percayai.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xlsx rusak ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com