Dalam postingan ini, kami dengan senang hati berbagi 2 cara untuk menyalin teks dari Word ke Excel dengan setiap kata berada di sel terpisah.
Jika Anda seorang ahli bahasa, Anda mungkin perlu banyak menghitung frekuensi kata. Maka topik kita hari ini akan sangat membantu. 2 metode di bawah ini akan memungkinkan Anda untuk menempelkan teks dari dokumen ke lembar excel dan mencantumkan setiap kata dalam sel kolom.
Metode 1: Manfaatkan Opsi "Temukan dan Ganti"
- Pertama-tama, buat salinan dokumen target. Ini sangat penting dan kita akan melakukan semua operasi pada file salinan untuk mencegah kehilangan data.
- Kedua, pilih semua teks target dan terapkan gaya “Normal”. Untuk melakukan ini, tekan “Alt+ Ctrl+ Shift+ S” untuk membuka jendela “Gaya”. Kemudian cari dan klik gaya “Normal”.
- Ketiga, tekan "Ctrl + H" untuk memicu kotak "Temukan dan Ganti".
- Arahkan kursor ke kotak teks "Temukan apa" dan masukkan spasi di sana.
- Selanjutnya tempatkan kursor di kotak teks "Ganti dengan" dan masukkan "^ p" di sana.
- Kemudian klik "Ganti Semua".
- Klik "Tidak" di kotak berikutnya yang muncul.
- Sekarang Anda dapat melihat setiap kata dalam satu baris. Tetapi ada juga baris kosong sebagai berikut:
Jadi untuk menghapusnya, Anda perlu mengaktifkan kotak "Temukan dan Ganti" lagi.
- Kali ini masukkan "^ p ^ p" di kotak teks "Find what" dan "^ p" di kotak "Replace with".
- Klik "Ganti Semua".
- Sekarang tekan "Ctrl + C" untuk menyalin daftar kata.
- Buka Excel dan tekan "Ctrl + V" untuk menempelkan daftar.
Metode 2: Gunakan Kode VBA untuk Mengurangi Beban Kerja
- Demikian pula, buat salinan terlebih dahulu dan pilih semua teks target.
- Selanjutnya tekan "Alt + F11" untuk membuka editor VBA.
- Kemudian klik "Normal" dan "Sisipkan" secara berurutan.
- Dan pilih "Modul" untuk membuat yang baru.
- Klik dua kali modul untuk membukanya dan tempel kode berikut:
Sub CopySelectParagraphWordByWordToExcel()
If Selection.Range <> "" Then
Selection.Style = ActiveDocument.Styles("Normal")
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Copy
MsgBox ("Now you can just open a Excel worksheet to paste the text")
Else
MsgBox ("There is no selected text ")
End If
End Sub
- Kemudian klik tombol “Run”.
- Selanjutnya akan ada kotak pesan yang menunjukkan apa yang perlu Anda lakukan selanjutnya.
- Buka Excel dan tekan "Ctrl + V" untuk menempelkan teks di sana. Efeknya sama dengan metode 1.
Menangani Kesalahan Dokumen Word
Apakah Anda pernah menjadi korban Kerusakan kata? Jika demikian, Anda akan mengerti betapa putus asa seseorang. Oleh karena itu, menjadi lebih penting dari sebelumnya untuk mendapatkan alat perbaikan yang memenuhi syarat untuk memperbaiki dokumen Anda yang rusak.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan xlsx ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com