ในบทความวันนี้เราจะนำเสนอ 4 วิธีที่มีประสิทธิภาพในการแยกตัวเลขในเอกสาร Word ของคุณออกจากสถิติการนับคำ
โดยทั่วไป Word จะนับข้อความทุกประเภทไม่ว่าจะเป็นคำหรือตัวเลข แต่ในตอนนี้เรามีแนวโน้มที่จะนับคำโดยไม่รวมองค์ประกอบบางอย่างเช่นตัวเลข ดังนั้นเราจึงมีความยินดีที่จะแสดง 4 วิธีเพื่อตอบสนองความต้องการดังกล่าว
ก่อนอื่น คุณต้องสำรองข้อมูลเอกสารเป้าหมายก่อน แล้วจึงดำเนินการตามวิธีการทั้งหมดด้านล่างกับสำเนาของคุณ
วิธีที่ 1: ลบหมายเลขทั้งหมด
- ขั้นแรกให้เปิดไฟล์คัดลอกแล้วคลิกปุ่มแบบเลื่อนลงที่ "ค้นหา" ใต้แท็บ "หน้าแรก"
- ประการที่สองเลือก“ การค้นหาขั้นสูง” เพื่อเปิดกล่องโต้ตอบ“ ค้นหาและแทนที่”
- จากนั้นป้อน“ ^ #” ในกล่องข้อความ“ ค้นหาอะไร” หากคุณจำสตริงนี้ไม่ได้ให้วางเคอร์เซอร์ไว้ที่ช่องข้อความ“ ค้นหาอะไร” แล้วคลิก“ เพิ่มเติม” จากนั้นคลิกปุ่ม“ พิเศษ”
- จากนั้นเลือก“ ตัวเลขใด ๆ ”
- จากนั้นคลิก“ ค้นหาใน” และเลือก“ เอกสารหลัก”
- คุณจะพบว่าตัวเลขทั้งหมดอยู่ในการเลือก
- กด“ Delete”
- เมื่อตัวเลขหายไปคุณจะสังเกตได้ว่า Word พิจารณาเครื่องหมายวรรคตอนเป็นคำ ดังนั้นคุณต้องลบเครื่องหมายวรรคตอนทั้งหมดด้วย เปิดช่อง“ ค้นหาและแทนที่” อีกครั้ง การป้อนข้อมูลในครั้งนี้“[, .;: '”” / \! \ * \? \\]” (ไม่มีเครื่องหมายคำพูด) ในกล่องข้อความ“ ค้นหาอะไร”
- และอย่าลืมทำเครื่องหมายที่ช่อง "ใช้สัญลักษณ์แทน"
- ทำซ้ำขั้นตอนที่ 5 เพื่อค้นหาเครื่องหมายวรรคตอนทั้งหมด
- ลบทิ้ง
- สุดท้ายคลิก "ตรวจทาน" ตามด้วย "จำนวนคำ" เพื่อดูจำนวนข้อความทั้งหมด
วิธีที่ 2: จัดรูปแบบตัวเลขทั้งหมดเป็นข้อความที่ซ่อนอยู่
Word ไม่มีข้อความที่ซ่อนอยู่ในจำนวนคำดังนั้นคุณสามารถเลือกที่จะกำหนดตัวเลขในการจัดรูปแบบที่ซ่อนอยู่
- ก่อนอื่นให้ทำซ้ำ 6 ขั้นตอนแรกในวิธีการ
- แทนที่จะลบตัวเลขที่เลือกให้กด“ Ctrl + D” เพื่อเปิดช่อง“ Font”
- เลือกช่อง "ซ่อน" แล้วคลิก "ตกลง"
- ทำซ้ำครั้งต่อไปจากขั้นตอนที่ 8 ถึง 9 เพื่อค้นหาเครื่องหมายวรรคตอนทั้งหมด
- ในทำนองเดียวกันให้ทำตามขั้นตอนที่ 2 และ 3 เพื่อจัดรูปแบบเครื่องหมายวรรคตอนเป็นข้อความที่ซ่อนอยู่
- สุดท้ายตรวจสอบคำทั้งหมด
วิธีที่ 3: เรียกใช้ Word Macro
มาโครต่อไปนี้จะทำตามขั้นตอนข้างต้นโดยอัตโนมัติและส่งคืนกล่องข้อความให้คุณซึ่งมีจำนวนคำทั้งหมดไม่รวมตัวเลข
- ในการเริ่มต้นให้กด“ Alt + F11” ใน Word เพื่อเปิดตัวแก้ไข VBA
- จากนั้นคลิก "ปกติ" ในคอลัมน์ด้านซ้าย
- จากนั้นคลิกแท็บ "แทรก" แล้วเลือก "โมดูล"
- ดับเบิลคลิกที่โมดูลเพื่อเปิดและวางรหัสต่อไปนี้:
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
- คลิก“ เรียกใช้”
คุณจะได้รับกล่องข้อความแจ้งจำนวนคำในเอกสารของคุณเช่น bellow:
วิธีที่ 4: ไม่รวมตัวเลขในตารางจากจำนวนคำ
นี่คือความต้องการเฉพาะในการแยกตัวเลขในตารางออกจากการนับคำ วิธีแก้ปัญหาคือเรียกใช้แมโคร
- ติดตั้งและเรียกใช้แมโครตามที่ระบุไว้ข้างต้นในวิธีที่ 3
- จากนั้นแทนที่มาโครนั้นด้วยอันนี้:
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
จะมีกล่องข้อความดังนี้:
คิดไว้ล่วงหน้า
เนื่องจากโปรแกรม Word ไม่ได้ปลอดภัยสมบูรณ์แบบ คุณจึงต้องใช้มาตรการป้องกันก่อนที่จะสายเกินไป วิธีที่ได้ผลที่สุดคือการสำรองข้อมูลเอกสารของคุณ และสำรองข้อมูลให้บ่อยที่สุดเท่าที่จะทำได้ การสำรองข้อมูลเอกสารอาจใช้เวลาเพียงไม่กี่นาที แต่การกู้คืนข้อมูลอาจใช้เวลาหลายชั่วโมงหรือหลายวัน docx เสียหาย. ดังนั้นคิดล่วงหน้าเพื่อประหยัดทั้งเวลาและเงิน
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ แก้ไข Excel และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.