Pada postingan hari ini, kami dengan senang hati berbagi 2 metode efektif untuk mengecualikan teks tabel dari statistik penghitungan kata.
Tabel biasanya digunakan untuk menyimpan data. Dan tabel adalah teman terbaik kita dalam mengilustrasikan poin saat mengerjakan dokumen. Maka itu bisa menjadi sedikit canggung ketika jumlah kata terlibat. Terkadang, kita hanya perlu mendapatkan jumlah kata dari teks utama daripada semua data dalam tabel. Namun, diketahui oleh semua bahwa Word menghitung semua kata dalam dokumen Anda secara default. Untuk alasan ini, kami telah menemukan cara yang efisien. Baca terus untuk mengetahui lebih lanjut.
Metode 1: Pilih Tabel Secara Manual dan Lakukan Matematika Anda Sendiri
Jika itu adalah dokumen pendek dengan hanya satu atau dua tabel, tidak ada masalah untuk memilih tabel satu per satu dengan menahan tombol “Ctrl”. Dalam pendekatan ini, jumlah total dalam tabel yang dipilih akan terlihat di bilah status, seperti di bawah ini:
Seperti yang Anda lihat, ada 2 angka. Yang pertama mengacu pada jumlah kata dalam tabel yang dipilih sedangkan yang kedua adalah jumlah kata dalam dokumen Anda. Cukup gunakan angka kedua hingga minus yang pertama untuk mendapatkan hasilnya.
Metode 2: Jalankan Kode VBA
Seperti disebutkan di atas, metode 1 akan membosankan jika Anda memiliki banyak tabel dalam dokumen. Untuk memilihnya secara manual jelas bukan cara yang ideal. Sebagai gantinya, kami menyarankan Anda makro yang akan menghitung semua kata tetapi mengecualikannya dalam tabel dan keterangan.
- Pertama dan terpenting, tekan “Alt+F11” untuk membuka editor VBA di Word.
- Kemudian, klik "Normal".
- Selanjutnya klik tab "Sisipkan".
- Dan pilih "Modul" pada menu drop-down tab "Sisipkan".
- Klik dua kali modul baru untuk membuka area pengkodean di sisi kanan.
- Sekarang tempel makro berikut di sana:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Terakhir, klik "Jalankan".
Menjalankan makro akan memunculkan kotak pesan, menunjukkan hasil penghitungan.
Atasi Kerusakan Kata
Kami sangat bergantung pada perangkat lunak seperti Word untuk memproses pekerjaan setiap hari. Akibatnya, kami tidak bisa begitu saja memikirkan konsekuensi yang luar biasa dari memiliki file Kerusakan kata. Anda bisa merasa putus asa kecuali Anda memiliki alat perbaikan dokumen yang memadai.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls memperbaiki ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com