Conas líon na n-íomhánna i ndoiciméad Word a chomhaireamh?

Má tá grafaicí iolracha i do dhoiciméad Word ina bhfuil íomhánna inlíne agus cruthanna ar snámh, anois, ba mhaith leat líon na grafaicí seo a chomhaireamh sa doiciméad iomlán, conas a d’fhéadfá líon na n-íomhánna a fháil go tapa agus i gceart?

Líon na n-íomhánna inlíne a bhfuil gné Aimsigh agus Ionadaigh iontu

Comhairigh líon na n-íomhánna inlíne agus na cruthanna ar snámh le cód VBA

Líon na n-íomhánna inlíne a bhfuil gné Aimsigh agus Ionadaigh iontu

An Aimsigh agus Ionadaigh is féidir le gné i Word cabhrú leat líon na bpictiúr inlíne a chomhaireamh go tapa agus go héasca, déan mar a leanas:

1. Cliceáil Baile > Aimsigh > Lorg Casta, féach ar an scáileán:

íomhánna comhaireamh doc 1

2. Sa an Aimsigh agus Ionadaigh bosca dialóige, faoin Aimsigh cluaisín, clóscríobh an ^g isteach sa Aimsigh cad bosca téacs, agus ansin roghnaigh Príomhdhoiciméad ó na Faigh Isteach liosta anuas, féach an scáileán:

íomhánna comhaireamh doc 2

3. Agus ansin is féidir leat a fheiceáil gur taispeánadh líon na n-íomhánna inlíne sa doiciméad Word seo mar a thaispeántar ar an scáileán a leanas:

íomhánna comhaireamh doc 3

Comhairigh líon na n-íomhánna inlíne agus na cruthanna ar snámh le cód VBA

Ní féidir leis an modh thuas ach líon na n-íomhánna inlíne a chomhaireamh, má tá roinnt cruthanna ar snámh sa doiciméad, ní áireofar iad. Is féidir leis an gcód VBA seo a leanas cabhrú leat na híomhánna inlíne agus na cruthanna ar snámh a chomhaireamh, déan mar seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte, féach an pictiúr:

Cód VBA: Comhairigh líon na n-íomhánna inlíne agus na cruthanna ar snámh:

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. Tar éis an cód a ghreamú, ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a insint duit cé mhéad íomhá inlíne agus cruthanna ar snámh sa doiciméad Word seo, féach an scáileán:

íomhánna comhaireamh doc 4