2 Metode Cepat untuk Mengekstrak Teks dari Kotak Teks di Dokumen Word Anda

Pada artikel ini, kami ingin menunjukkan kepada Anda 2 metode cepat dan mudah digunakan untuk mengekstrak teks dari kotak teks di dokumen Word Anda.

Dari waktu ke waktu, kita bisa mendapatkan file Word yang berisi banyak kotak teks. Biasanya, akan ada teks atau konten relatif di dalam kotak tersebut. Maka mungkin ada kebutuhan untuk hanya memasukkan teks saja daripada menyimpan seluruh kotak teks.

Tentu saja, itu cepat untuk mengambil kata-kata dalam satu kotak teks hanya dengan menyalin teks dan menempelkannya di tempat lain. Namun, jika menyangkut ratusan di antaranya, sebaiknya kita mempelajari beberapa tip cepat untuk menyelesaikan pekerjaan.

Metode 1: Gunakan "Panel Seleksi"

1. Pertama dan terpenting, klik tab “Beranda”.
2. Kemudian klik ikon "Pilih" di grup "Mengedit".
3. Selanjutnya, pada menu drop-down, pilih "Panel Pilihan".
4. Sekarang di sisi kanan layar, Anda dapat melihat semua kotak teks terlihat di panel.
5. Tekan "Ctrl" dan klik nama kotak teks tersebut di panel satu per satu untuk memilih semuanya.
6. Dan pindah untuk meletakkan kursor di salah satu garis kotak dan klik kanan.
7. Pada opsi daftar, klik "Salin". Sekarang jika Anda tidak membutuhkan kotak-kotak itu lagi, cukup tekan "Hapus".
8. Selanjutnya, klik “Mulai” untuk melihat menu Windows.
9. Pilih "WordPad" dan buka.
10. Kemudian klik "Tempel" untuk mendapatkan semua teks dari kotak teks.
11. Selanjutnya, pilih semua teks dan klik kanan untuk memilih "Salin".
12. Sekarang buka dokumen Word baru dan klik kanan untuk memilih "Keep Text Only" untuk mendapatkan teks.

Metode 2: Gunakan Kode VBA

Seperti yang mungkin Anda lihat, bahkan dengan metode pertama, Anda tidak dapat menghindari memilih semua kotak teks. Jika beberapa dari Anda tidak menyukai pekerjaan seperti itu, di sini kami menawarkan cara untuk menjalankan makro. Dengan metode 2, Anda dapat mengekstrak semua teks sekaligus dan menghapus kotak teks.

1. Pertama, tekan "Alt + F11" untuk membuka editor VBA.
2. Kedua, klik "Normal" dan kemudian "Sisipkan".
3. Selanjutnya pilih "Modul" untuk memasukkan yang baru.
4. Kemudian klik dua kali pada nama modul untuk membuka area pengeditan.
5. Tempel kode berikut dan klik "Jalankan":

Sub DeleteTextBoxesAndExtractTheText()
  Dim nNumber As Integer
  Dim strText As String

  '  Delete all textboxes and extract the text from them
  With ActiveDocument
    For nNumber = .Shapes.Count To 1 Step -1
    If .Shapes(nNumber).Type = msoTextBox Then
      strText=strText& .Shapes(nNumber).TextFrame.TextRange.Text & vbCr
      .Shapes(nNumber).Delete
    End If
  Next
  End With

  '  Open a new document to paste the text from textboxes.
  If strText <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strText
  Else
    MsgBox ("There is no textbox.")
  End If
End Sub

Inilah yang kemungkinan besar Anda dapatkan:

Mengatasi File Word yang Rusak

Kata rentan terhadap kesalahan dan karenanya sering menjadi korban korupsi. Oleh karena itu, Anda harus mengelola dokumen Anda dengan baik untuk melindunginya dari kerusakan. Karena begitu mereka rusak, Anda akan menghadapi risiko kehilangan mereka secara permanen. Maka Anda harus menggunakan alat pemulihan data Word yang rusak.

Pengantar Penulis:

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