ในบทความนี้จะมี 3 วิธีในการนับจำนวนคำสำหรับส่วนต่างๆในเอกสาร Word ของคุณ
ง่ายต่อการรับจำนวนคำทั้งหมดของเอกสาร แต่ไม่มีฟังก์ชันใดใน Word ที่จะบอกจำนวนคำของส่วนได้ และจากข้อเท็จจริงที่ว่าเราชอบที่จะใส่เนื้อหาของหัวข้อเดียวกันในส่วนเดียวเช่นการจัดระเบียบบทในขณะที่เขียนหนังสือเราจำเป็นต้องคิดวิธีแก้ปัญหาเพื่อให้ได้จำนวนส่วน 
ต่อไปนี้เป็น 3 วิธีที่คุณต้องเรียกใช้แมโคร
วิธีที่ 1: นับจำนวนคำสำหรับส่วนปัจจุบัน
- ขั้นแรก ให้วางเคอร์เซอร์ไว้ภายในส่วนเป้าหมาย
- จากนั้นคุณต้องเปิดตัวแก้ไข VBA ใน Word คลิก“ นักพัฒนา” แล้วคลิกคำสั่ง“ Visual Basic” ในกรณีที่คุณไม่พบ“ Developer” ใน Ribbon ให้กด“ Alt + F11” แทน
- จากนั้นคลิกโครงการ“ ปกติ” ในคอลัมน์ทางซ้าย
- จากนั้นคลิกแท็บ“ แทรก”
- ในเมนูแบบเลื่อนลงให้เลือก "โมดูล"
- เปิดโมดูลใหม่โดยดับเบิลคลิก
- ตอนนี้ในโมดูลที่เปิดอยู่ให้วางรหัสต่อไปนี้:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- สุดท้ายให้คลิก“ Run” หรือกด“ F5” เพื่อรันโค้ด
คุณจะได้รับกล่องข้อความแสดงจำนวนส่วนปัจจุบันทั้งหมดดังต่อไปนี้:
วิธีที่ 2: นับจำนวนคำสำหรับส่วนเฉพาะ
สมมติว่าคุณทำงานหนังสือและตั้งค่าแต่ละบทเป็นส่วน ๆ จากนั้นหากต้องการทราบจำนวนคำที่คุณเขียนในบทหนึ่งคุณสามารถใช้วิธีนี้ได้
- ทำตามขั้นตอนด้านบนเพื่อติดตั้งและเรียกใช้แมโคร
- เพียงแค่แทนที่มาโครด้วยอันนี้:
Sub CountWordsOfSpecificSection()
Dim strSecNum As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strSecNum = InputBox("Enter a section number here:", "Enter Section Number")
MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
& " words in section " & strSecNum & ".")
Application.ScreenUpdating = True
End Sub
- และเรียกใช้มันจะมีช่องป้อนข้อมูล ในช่อง“ Enter Section Number” ป้อนหมายเลขส่วนและคลิก“ ตกลง” เพื่อดำเนินการต่อ
ผลลัพธ์จะปรากฏบนกล่องข้อความ
วิธีที่ 3: นับจำนวนคำสำหรับทุกส่วนในเอกสาร
ตามคำบรรยายแนะนำวิธีนี้จะทำให้คุณได้รับจำนวนคำทั้งหมดของแต่ละส่วนในเอกสารและแสดงรายการไว้ในกล่องข้อความ
- ขั้นแรก เปิดเอกสารเป้าหมายก่อน
- ถึงกระนั้นคุณต้องทำซ้ำขั้นตอนในวิธีที่ 1 เพื่อติดตั้งและเรียกใช้แมโคร
- คราวนี้เปลี่ยนด้วยมาโครนี้:
Sub CountWordsOfEachSectionInDoc()
Dim objDoc As Document
Dim nNumberOfSection As Long
Dim strText As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nNumberOfSection = objDoc.Sections.Count
For nNumberOfSection = 1 To nNumberOfSection
strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
.Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
& vbNewLine
Next nNumberOfSection
MsgBox strText
Application.ScreenUpdating = True
End Sub
นี่คือผลลัพธ์ที่เป็นไปได้:
บันทึกข้อมูลที่มีค่า
ในขณะที่จัดการกับเอกสารทุกประเภทคุณต้องคำนึงถึงความปลอดภัยของเอกสารเหล่านี้ด้วย เนื่องจากคุณไม่สามารถบอกได้ว่าข้อมูลสูญหายครั้งต่อไปจะเกิดขึ้นเมื่อใดจึงขอแนะนำให้สำรองไฟล์สำคัญ นอกจากนี้คุณควรได้รับเครื่องมือที่สามารถทำได้ กู้คืนเอกสาร, ถ้ามี.
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xls ซ่อม และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.