Dalam catatan hari ini, kami gembira untuk berkongsi dengan anda 2 kaedah berkesan untuk mengecualikan teks jadual daripada statistik kiraan perkataan.
Jadual biasanya digunakan untuk menyimpan data. Dan jadual adalah sahabat kita dalam menggambarkan poin semasa mengerjakan dokumen. Maka ia akan menjadi sedikit janggal apabila jumlah kata terlibat. Kadang-kadang, kita hanya perlu mendapatkan jumlah perkataan teks utama dan bukannya semua data dalam jadual. Namun, diketahui oleh semua bahawa Word menghitung semua perkataan dalam dokumen anda secara lalai. Atas sebab ini, kami telah menghasilkan kaedah yang cekap. Teruskan membaca untuk mengetahui lebih lanjut.
Kaedah 1: Pilih Jadual Secara Manual dan Lakukan Matematik Sendiri
Sekiranya dokumen pendek dengan hanya satu atau dua jadual, tidak perlu memilih meja satu persatu dengan menekan kekunci "Ctrl". Dalam pendekatan ini, jumlah bilangan jadual terpilih akan kelihatan di bar status, seperti di bawah:
Seperti yang anda lihat, ada 2 nombor. Yang pertama merujuk kepada jumlah perkataan dalam jadual yang dipilih sementara yang kedua adalah jumlah kata dalam dokumen anda. Cukup gunakan nombor kedua untuk tolak yang pertama untuk mendapatkan hasilnya.
Kaedah 2: Jalankan Kod VBA
Seperti disebutkan di atas, kaedah 1 akan membosankan jika anda mempunyai sejumlah besar jadual dalam dokumen. Untuk memilihnya secara manual pastinya bukan kaedah yang sesuai. Sebaliknya, kami mengesyorkan anda makro yang akan menghitung semua perkataan tetapi tidak termasuk dalam jadual dan kapsyen.
- Pertama sekali, tekan "Alt + F11" untuk memanggil editor VBA dalam Word.
- Kemudian, klik "Normal".
- Klik seterusnya "Masukkan" tab.
- Dan pilih "Module" pada menu drop-down tab "Insert".
- Klik dua kali modul baru untuk membuka kawasan pengekodan di sebelah kanan.
- Sekarang tampal 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
- Akhirnya, klik "Jalankan".
Menjalankan makro akan muncul kotak mesej, menunjukkan hasil pengiraan.
Tangani Kerosakan Kata
Kami sangat bergantung pada perisian seperti Word untuk memproses kerja setiap hari. Akibatnya, kami tidak dapat memikirkan dengan teliti akibat dari memiliki Rasuah perkataan. Anda boleh merasa putus asa kecuali anda mempunyai alat pembaikan dokumen yang mencukupi.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls betulkan dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com