ในบทความนี้ เราต้องการแบ่งปัน 4 วิธีง่ายๆ เพื่อให้คุณนับจำนวนรูปภาพทั้งหมดในเอกสาร Word ของคุณได้อย่างรวดเร็วและถูกต้อง
ในบางครั้ง เอกสารจะต้องใช้รูปภาพหลายรูปเพื่อทำให้เป็นมืออาชีพมากขึ้น อย่างไรก็ตาม หากคุณเป็นผู้ชายเช่นฉันที่ต้องการแทรกรูปภาพทันทีหลังจากแก้ไขเสร็จแล้ว คุณอาจจะกังวลว่าคุณจะเผลอทิ้งภาพหนึ่งหรือสองครั้งโดยไม่ตั้งใจ ดังนั้นคุณจะต้องเลื่อนขึ้นและลงอย่างระมัดระวังเพื่อตรวจสอบจำนวนรูปภาพทั้งหมดในเอกสาร ด้วยความอึดอัดใจนี้ เราขอเสนอ 4 วิธีที่มีประโยชน์จริงๆ เพื่อช่วยประหยัดเวลาของคุณ
วิธีที่ 1: ใช้คุณลักษณะ "ค้นหา"
- อันดับแรก ให้คลิกแท็บ “หน้าแรก”
- จากนั้นคลิกปุ่มด้านหลังไอคอน "ค้นหา"
- และเลือก "การค้นหาขั้นสูง" บนเมนู

- ในกล่องโต้ตอบ "ค้นหาและแทนที่" ตรวจสอบให้แน่ใจว่าไม่มีข้อความอื่นในกล่องข้อความ "ค้นหาอะไร" และป้อน "^g" ที่นั่น
- จากนั้นคลิก“ ค้นหาใน” และเลือก“ เอกสารหลัก”
ขณะนี้ จะแสดงผลลัพธ์ในกล่องโต้ตอบ ซึ่งแสดงจำนวนรูปร่างอินไลน์ในเอกสารนี้ ซึ่งหมายความว่าฟีเจอร์ "ค้นหา" สามารถนับได้เฉพาะภาพที่ตั้งค่าในรูปแบบการตัดข้อความ "สอดคล้องกับข้อความ" เท่านั้น
วิธีที่ 2: ใช้คุณสมบัติ“ ไปที่”
- ขั้นแรก กด “Ctrl+ Home” เพื่อไปที่จุดเริ่มต้นของเอกสารและทำซ้ำ 2 ขั้นตอนแรกในวิธีที่ 1
- คราวนี้เลือก "ไปที่" แทน
- จากนั้นเลือก "กราฟิก"
- ป้อนอะไรในกล่องข้อความแล้วคลิก "ถัดไป"
แต่ละครั้งที่คุณคลิก "ถัดไป" Word จะนำคุณไปที่กราฟิกเน็ต และคุณต้องนับด้วยตัวเอง อย่างไรก็ตาม วิธีนี้รวมเฉพาะรูปร่างอินไลน์เท่านั้น
นี่คือวิดีโอสาธิต:
วิธีที่ 3: กดปุ่ม "Tab"
- เริ่มต้นด้วยการคลิกที่ภาพแรกในเอกสาร
- จากนั้นกด "Tab" จากนั้นภาพถัดไปจะถูกเลือก อย่าลืมนับด้วยตัวเอง
โชคดีที่วิธีที่ 3 มีทั้งรูปร่างอินไลน์และรูปร่างลอย เช่น กล่องข้อความ
วิธีที่ 4: เรียกใช้ Word Macro
- ในตอนแรกคลิกแท็บ "นักพัฒนา"
- จากนั้นคลิก“ Visual Basic” เพื่อเปิดตัวแก้ไข VBA
- จากนั้นคลิก "แทรก" และเลือก "โมดูล" เพื่อแทรกอันใหม่ภายใต้โปรเจ็กต์ "ปกติ"
- ดับเบิลคลิกที่โมดูลใหม่เพื่อเปิดพื้นที่การเขียนโค้ด
- และวางรหัสต่อไปนี้ที่นั่น:
Sub CountImages()
Dim objDoc As Document
Dim nFlowingShapes As Long, nInlineShapes As Long, nTextBox As Long, nTotalShapes As Long
Dim objShape As Shape
Set objDoc = ActiveDocument
nTextBox = 0
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
nTextBox = nTextBox + 1
End If
Next objShape
nFlowingShapes = objDoc.Shapes.Count
nInlineShapes = objDoc.InlineShapes.Count
nTotalShapes = nFlowingShapes + nInlineShapes - nTextBox
MsgBox "There are " & nTotalShapes & " images in this document, " & "with " & nFlowingShapes & " flowing shapes, " & nTextBox & "text boxes, and " & nInlineShapes & " inline shapes."
End Sub
- สุดท้ายคลิก“ เรียกใช้”
จะต้องมีกล่องข้อความแจ้งผล
เครื่องมือในการแก้ไข Word
Word ไวต่อข้อผิดพลาดและข้อผิดพลาด และเมื่อมันหยุดทำงาน การปิดระบบอาจสร้างความเสียหายให้กับไฟล์ Word ของเรา ซึ่งจะส่งผลเสียหายอย่างมากต่อจิตใจของเรา อย่างไรก็ตาม ยังมีวิธีแก้ไขสำหรับการมีไฟล์ที่เสียหายกลับมานั่นคือการได้รับเครื่องมือที่ซับซ้อน ซ่อมแซม Word.
บทนำผู้เขียน:
Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ xls ซ่อม และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.







