Sut i gyfrif nifer y delweddau mewn dogfen Word?

Os oes graffeg lluosog yn eich dogfen Word sy'n cynnwys delweddau mewnol a siapiau arnofiol, nawr, rydych chi am gyfrif nifer y graffeg hyn yn y ddogfen gyfan, sut allech chi gael nifer y delweddau yn gyflym ac yn gywir?

Cyfrif nifer y delweddau mewnol gyda nodwedd Dod o Hyd ac Amnewid

Cyfrif nifer y delweddau mewnlin a siapiau arnofiol gyda chod VBA

Cyfrif nifer y delweddau mewnol gyda nodwedd Dod o Hyd ac Amnewid

Mae adroddiadau Dod o hyd ac yn ei le gall nodwedd yn Word eich helpu i gyfrif nifer y lluniau mewnol yn gyflym ac yn hawdd yn unig, gwnewch fel a ganlyn:

1. Cliciwch Hafan > Dod o hyd i > Darganfod Uwch, gweler y screenshot:

delweddau cyfrif doc 1

2. Yn y Dod o hyd ac yn ei le blwch deialog, o dan y Dod o hyd i tab, teipiwch y ^g i mewn i'r Dewch o hyd i beth blwch testun, ac yna dewis Prif Ddogfen oddi wrth y Dod o hyd i rhestr ostwng, gweler y screenshot:

delweddau cyfrif doc 2

3. Ac yna gallwch weld bod nifer y delweddau mewnol yn y ddogfen Word hon wedi cael eu harddangos fel y screenshot canlynol:

delweddau cyfrif doc 3

Cyfrif nifer y delweddau mewnlin a siapiau arnofiol gyda chod VBA

Dim ond nifer y delweddau mewnol y gall y dull uchod eu cyfrif, os oes rhai siapiau arnofio yn y ddogfen, ni fyddant yn cael eu cyfrif. Gall y cod VBA canlynol eich helpu i gyfrif y delweddau mewnol a'r siapiau arnofiol, gwnewch hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored, gweler y screenshot:

Cod VBA: Cyfrif nifer y delweddau mewnlin a siapiau arnofiol:

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. Ar ôl pasio'r cod, yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i ddweud wrthych faint o ddelweddau mewnlin a siapiau arnofiol yn y ddogfen Word hon, gweler y screenshot:

delweddau cyfrif doc 4