Dalam artikel hari ini, kami akan menyajikan kepada Anda 4 cara efektif untuk mengecualikan angka dalam dokumen Word Anda dari statistik jumlah kata.
Umumnya, Word menghitung semua jenis teks, baik itu kata atau angka. Tapi, sekarang dan nanti, kita cenderung melakukan penghitungan kata dengan mengecualikan elemen tertentu, seperti angka. Oleh karena itu, kami dengan senang hati menunjukkan kepada Anda 4 metode untuk memenuhi persyaratan tersebut.
Pertama-tama, Anda harus membuat cadangan dokumen target dan menjalankan semua metode di bawah ini pada salinan Anda.
Metode 1: Hapus Semua Nomor
- Pertama, buka file copy dan klik tombol drop-down pada "Find" di bawah tab "Home".
- Kedua, pilih "Advanced Find" untuk membuka kotak dialog "Find and Replace".
- Selanjutnya masukkan "^ #" dalam kotak teks "Temukan apa". Jika Anda tidak dapat mengingat string ini, letakkan kursor di kotak teks "Temukan apa" dan klik "Lainnya" lalu klik tombol "Khusus".
- Kemudian pilih "Any Digit".
- Sekarang klik "Temukan" dan pilih "Dokumen Utama".
- Anda akan menemukan semua nomor dalam seleksi.
- Tekan "Hapus".
- Setelah angka hilang, Anda dapat melihat Word menganggap beberapa tanda baca sebagai kata sekarang. Jadi, Anda juga perlu menghapus semua tanda baca. Buka kotak "Temukan dan Ganti" lagi. Kali ini masukan "[,.;: '”” ”/ \! \ * \? \\]”(Tanpa tanda kutip) di kotak teks“ Find what ”.
- Dan ingatlah untuk mencentang kotak "Gunakan karakter pengganti".
- Ulangi langkah 5 untuk menemukan semua tanda baca.
- Hapus mereka.
- Terakhir, klik "Review" lalu "Word Count" untuk melihat jumlah teks.
Metode 2: Format Semua Angka sebagai Teks Tersembunyi
Word tidak menyertakan teks tersembunyi dalam jumlah kata, sehingga Anda dapat memilih untuk mengatur angka dalam pemformatan tersembunyi.
- Pertama-tama, ulangi 6 langkah pertama dalam metode.
- Alih-alih menghapus nomor yang dipilih, tekan "Ctrl + D" untuk membuka kotak "Font".
- Centang kotak "Tersembunyi" dan klik "OK".
- Berikutnya ulangi dari langkah 8 hingga 9 untuk menemukan semua tanda baca.
- Demikian pula, ikuti langkah 2 dan 3 untuk memformat tanda baca sebagai teks tersembunyi.
- Terakhir, periksa kata total.
Metode 3: Jalankan Makro Kata
Makro berikut akan melakukan langkah-langkah di atas secara otomatis dan mengembalikan Anda kotak pesan, yang berisi jumlah kata tidak termasuk angka.
- Untuk memulai, tekan "Alt + F11" di Word untuk membuka editor VBA.
- Selanjutnya klik "Normal 'di kolom kiri.
- Kemudian klik tab "Sisipkan" dan pilih "Modul".
- Klik dua kali pada modul untuk membukanya dan tempel kode di bawah ini:
Sub ExcludeNumbersFromWordCount()
Dim objDoc As Document
Dim nWord As Integer
Set objDoc = ActiveDocument
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
MsgBox ("There are " & nWord & " words in this document.")
End Sub
- Klik "Jalankan".
Anda akan menerima kotak pesan yang memberitahukan Anda berapa banyak kata yang ada di dokumen Anda, seperti di bawah ini:
Metode 4: Kecualikan Angka dalam Tabel dari Word Count
Berikut adalah kebutuhan khusus untuk mengecualikan angka dalam tabel dari jumlah kata. Solusinya adalah dengan menjalankan makro.
- Instal dan jalankan makro seperti yang disebutkan di atas dalam metode 3.
- Kemudian ganti makro itu dengan yang ini:
Sub ExcludeNumbersInTablesFromWordCount()
Dim objDoc As Document, objNewDoc As Document
Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
Dim objTable As Table
Dim objRange As Range
Dim objParagraph As Paragraph
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
For Each objTable In objDoc.Tables
objTable.Range.Select
Selection.Copy
Set objRange = objNewDoc.Range
objRange.Collapse Direction:=wdCollapseEnd
objRange.PasteSpecial DataType:=wdPasteRTF
objRange.Collapse Direction:=wdCollapseEnd
objRange.Text = vbCr
Next objTable
objNewDoc.Activate
For Each objParagraph In ActiveDocument.Paragraphs
If objParagraph.Range.Style = "Caption" Then
objParagraph.Range.Delete
End If
Next objParagraph
nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
objDoc.Activate
MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub
Akan ada kotak pesan seperti ini:
Pikirkan dulu
Mengingat Word bukanlah perangkat lunak yang sempurna, Anda harus mengambil langkah pencegahan sebelum semuanya terlambat. Cara yang paling efektif adalah dengan mencadangkan dokumen Anda dan mencadangkannya sesering mungkin. Mencadangkan satu dokumen mungkin hanya membutuhkan beberapa menit, tetapi memulihkannya bisa memakan waktu berjam-jam bahkan berhari-hari. docx yang rusak. Jadi pikirkan ke depan untuk menghemat waktu dan uang Anda.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Perbaikan Excel ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com