Note: The other languages of the website are Google-translated. Back to English

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 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



Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir