Dalam artikel ini, kami ingin menunjukkan kepada anda 2 kaedah yang cepat dan mudah digunakan untuk mengekstrak teks daripada kotak teks dalam dokumen Word anda.
Dari semasa ke semasa, kita boleh mendapatkan fail Word yang mengandungi sejumlah besar kotak teks. Biasanya, akan ada teks atau kandungan relatif di dalam kotak tersebut. Kemudian mungkin terdapat keperluan untuk mendapatkan hanya teks di dalam dan bukannya menyimpan keseluruhan kotak teks.
Sudah tentu, ia pantas untuk mendapatkan semula perkataan dalam satu kotak teks hanya dengan menyalin teks keluar dan menampalnya di tempat lain. Walau bagaimanapun, apabila bercakap mengenai ratusan daripada mereka, lebih baik kita mempelajari beberapa petua cepat untuk menyelesaikan kerja.
Kaedah 1: Gunakan "Anak Tetingkap Pilihan"
- Pertama sekali, klik tab "Laman Utama".
- Kemudian klik ikon "Pilih" dalam kumpulan "Pengeditan".
- Seterusnya, pada menu lungsur, pilih "Anak Tetingkap Pilihan".
- Kini di sebelah kanan skrin, anda boleh melihat semua kotak teks kelihatan pada anak tetingkap.
- Tekan "Ctrl" dan klik nama kotak teks tersebut pada anak tetingkap satu demi satu untuk memilih semuanya.
- Dan bergerak untuk meletakkan kursor pada salah satu baris kotak dan klik kanan.
- Pada pilihan senarai, klik "Salin". Sekarang jika anda tidak memerlukan kotak itu lagi, hanya tekan "Padam".
- Seterusnya klik "Mula" untuk melihat menu Windows.
- Pilih "WordPad" dan bukanya.
- Kemudian klik "Tampal" untuk mendapatkan semua teks daripada kotak teks.
- Seterusnya, pilih semua teks dan klik kanan untuk memilih "Salin".
- Sekarang buka dokumen Word baharu dan klik kanan untuk memilih "Simpan Teks Sahaja" untuk mendapatkan teks.
Kaedah 2: Gunakan Kod VBA
Seperti yang anda lihat, walaupun dengan kaedah pertama, anda tidak boleh mengelak daripada memilih semua kotak teks. Sekiranya sesetengah daripada anda membenci kerja buruh sedemikian, di sini kami menawarkan anda cara untuk menjalankan makro. Dengan kaedah 2, anda boleh mengekstrak semua teks sekali gus dan memadamkan kotak teks.
- Pertama, tekan "Alt + F11" untuk membuka editor VBA.
- Kedua, klik "Biasa" dan kemudian "Sisipkan".
- Seterusnya pilih "Module" untuk memasukkan yang baru.
- Kemudian klik dua kali pada nama modul untuk membuka kawasan penyuntingan.
- Tampalkan kod 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 kemungkinan yang anda akan dapat:
Mengatasi Fail Word yang Ranap
Perkataan terdedah kepada kesilapan dan oleh itu sering menjadi mangsa rasuah. Oleh itu, anda perlu menguruskan dokumen anda dengan betul untuk melindunginya daripada kerosakan. Sebaik sahaja mereka rosak, anda akan menghadapi risiko kehilangan mereka secara kekal. Kemudian anda perlu menggunakan alat pemulihan data Word rosak.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Alat pemulihan ralat fail Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com