วิธีนับจำนวนภาพในเอกสาร Word?

หากมีกราฟิกหลายภาพในเอกสาร Word ของคุณที่มีทั้งรูปภาพแบบอินไลน์และรูปทรงลอยตอนนี้คุณต้องการนับจำนวนกราฟิกเหล่านี้ในเอกสารทั้งหมดคุณจะได้รับจำนวนรูปภาพอย่างรวดเร็วและถูกต้องได้อย่างไร

นับจำนวนภาพอินไลน์ด้วยคุณสมบัติค้นหาและแทนที่

นับจำนวนทั้งภาพอินไลน์และรูปทรงลอยด้วยรหัส VBA

นับจำนวนภาพอินไลน์ด้วยคุณสมบัติค้นหาและแทนที่

พื้นที่ ค้นหาและแทนที่ คุณลักษณะใน Word สามารถช่วยให้คุณนับจำนวนภาพแบบอินไลน์ได้อย่างรวดเร็วและง่ายดายโปรดทำดังนี้:

1. คลิก หน้าแรก > หา > การค้นหาขั้นสูงดูภาพหน้าจอ:

doc นับภาพ 1

2. ใน ค้นหาและแทนที่ ภายใต้ หา พิมพ์ ^g เข้าไปใน สิ่งที่ค้นหา กล่องข้อความแล้วเลือก เอกสารหลัก จาก ค้นหาใน รายการแบบเลื่อนลงดูภาพหน้าจอ:

doc นับภาพ 2

3. จากนั้นคุณจะเห็นจำนวนภาพอินไลน์ในเอกสาร Word นี้แสดงเป็นภาพหน้าจอต่อไปนี้:

doc นับภาพ 3

นับจำนวนทั้งภาพอินไลน์และรูปทรงลอยด้วยรหัส VBA

วิธีการข้างต้นสามารถนับจำนวนภาพแบบอินไลน์ได้เท่านั้นหากมีรูปทรงลอยอยู่ในเอกสารจะไม่ถูกนับ รหัส VBA ต่อไปนี้สามารถช่วยคุณในการนับทั้งรูปภาพแบบอินไลน์และรูปทรงลอยได้โปรดทำดังนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:

รหัส VBA: นับจำนวนภาพแบบอินไลน์และรูปทรงลอย:

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim msg As String
    With ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then tbxs = tbxs + 1
        Next
        xInlines = .InlineShapes.Count
        xFloaters = .Shapes.Count - tbxs
    End With
    xPrompt = "Inline images:" & vbTab & xInlines & vbCr
    xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
    xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
    xPrompt = xPrompt & "Counts do not include headers and footers, etc."
    MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub

3. หลังจากวางรหัสแล้วกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อบอกจำนวนภาพในบรรทัดและรูปทรงลอยในเอกสาร Word นี้โปรดดูภาพหน้าจอ:

doc นับภาพ 4