Dalam artikel hari ini, kami akan menunjukkan kepada anda 4 cara berkesan untuk mengecualikan nombor dalam dokumen Word anda dari statistik jumlah perkataan.
Secara amnya, Word mengira semua jenis teks, sama ada perkataan atau nombor. Tetapi, sekarang dan seterusnya, kita mungkin melakukan pengiraan kata tidak termasuk unsur-unsur tertentu, seperti angka. Oleh itu, kami dengan senang hati menunjukkan kepada anda 4 kaedah untuk memenuhi syarat tersebut.
Sebelum itu, anda mesti membuat sandaran dokumen sasaran dan menjalankan semua kaedah di bawah pada salinan anda.
Kaedah 1: Padam Semua Nombor
- Pertama, buka fail salin dan klik butang lungsur pada "Cari" di bawah tab "Laman Utama".
- Kedua, pilih "Cari Lanjutan" untuk membuka kotak dialog "Cari dan Ganti".
- Seterusnya masukkan "^ #" di kotak teks "Cari apa". Sekiranya anda tidak dapat mengingati rentetan ini, letakkan kursor di kotak teks "Cari apa" dan klik "Lagi" kemudian klik butang "Khas".
- Kemudian pilih "Mana-mana Digit".
- Sekarang klik "Cari Dalam" dan pilih "Dokumen Utama".
- Anda akan dapati semua nombor ada dalam pilihan.
- Tekan "Padam".
- Setelah nombor hilang, anda dapat melihat Word menganggap beberapa tanda baca sebagai perkataan sekarang. Oleh itu, anda juga perlu membuang semua tanda baca. Buka kotak "Cari dan Ganti" sekali lagi. Input kali ini “[,.;: '"" "/ \! \ * \? \\]"(Tanpa tanda petik) dalam kotak teks" Cari apa ".
- Dan ingat untuk menandakan kotak "Gunakan wildcard".
- Ulangi langkah 5 untuk mencari semua tanda baca.
- Padamkannya.
- Terakhir, klik "Ulasan" kemudian "Jumlah Kata" untuk melihat jumlah teks.
Kaedah 2: Format Semua Nombor sebagai Teks Tersembunyi
Word tidak memasukkan teks tersembunyi dalam jumlah perkataan, jadi anda boleh memilih untuk menetapkan nombor dalam format tersembunyi.
- Pertama sekali, ulangi 6 langkah pertama dalam kaedah.
- Daripada menghapus nombor yang dipilih, tekan "Ctrl + D" untuk membuka kotak "Font".
- Tandakan kotak "Tersembunyi" dan klik "OK".
- Ulangi seterusnya dari langkah 8 hingga 9 untuk mencari semua tanda baca.
- Begitu juga, ikuti langkah 2 dan 3 untuk memformat tanda baca sebagai teks tersembunyi.
- Akhirnya, periksa jumlah perkataan.
Kaedah 3: Jalankan Makro Word
Makro berikut akan melakukan langkah-langkah di atas secara automatik dan mengembalikan anda kotak mesej, yang mengandungi jumlah perkataan tidak termasuk nombor.
- Sebagai permulaan, tekan "Alt + F11" di Word untuk membuka editor VBA.
- Klik seterusnya "Normal" di lajur kiri.
- Kemudian klik tab "Insert" dan pilih "Module".
- Klik dua kali pada modul untuk membukanya dan tampal kod berikut:
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 mesej, memberitahu anda berapa banyak perkataan di dalam dokumen anda, seperti di bawah:
Kaedah 4: Kecualikan Nombor dalam Jadual dari Word Count
Berikut adalah keperluan tertentu untuk mengecualikan nombor dalam jadual dari jumlah perkataan. Penyelesaiannya ialah menjalankan makro.
- Pasang dan jalankan makro seperti yang dinyatakan di atas dalam kaedah 3.
- Kemudian gantikan makro itu dengan yang berikut:
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 mesej seperti ini:
Fikirkan ke hadapan
Memandangkan Word tidaklah mudah, anda mesti mengambil langkah pencegahan sebelum semuanya terlambat. Cara yang paling berguna adalah dengan membuat sandaran dokumen anda dan membuat sandarannya sebaik mungkin. Ia mungkin hanya mengambil masa beberapa minit untuk membuat sandaran dokumen tetapi mungkin juga berjam-jam untuk memulihkannya. docx rosak. Oleh itu, berfikirlah untuk menjimatkan masa dan wang anda.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Pembaikan Excel dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com