Suggerimento: le altre lingue sono tradotte da Google. Puoi visitare il English versione di questo link.
Accedi
x
or
x
x
Registrati
x

or

Come contare il numero di immagini in un documento di Word?

Se nel documento di Word sono presenti più elementi grafici che contengono sia immagini in linea che forme fluttuanti, ora si desidera calcolare il numero di questi elementi grafici nell'intero documento, in che modo è possibile ottenere il numero di immagini in modo rapido e corretto?

Conta il numero di immagini in linea con la funzione Trova e sostituisci

Conta il numero di entrambe le immagini inline e le forme fluttuanti con il codice VBA


Conta il numero di immagini in linea con la funzione Trova e sostituisci

The Trova e sostituisci funzionalità in Word può aiutarti a contare il numero di immagini in linea solo in modo rapido e semplice, per favore fai come segue:

1. Clic Home > Trova > Ricerca avanzata, vedi screenshot:

doc conteggio immagini 1

2. Nel Trova e sostituisci finestra di dialogo, sotto il Trova scheda, digitare il ^g nella Trova quello che casella di testo, quindi scegliere Documento principale dal Trova dentro menu a discesa, vedi screenshot:

doc conteggio immagini 2

3. E poi puoi vedere il numero delle immagini in linea in questo documento Word che è stato mostrato come nella seguente schermata mostrata:

doc conteggio immagini 3


Conta il numero di entrambe le immagini inline e le forme fluttuanti con il codice VBA

Il metodo sopra può contare solo il numero di immagini in linea, se ci sono alcune forme fluttuanti nel documento, non verranno conteggiate. Il seguente codice VBA può aiutarti a contare sia le immagini in linea che le forme fluttuanti, per favore fai come segue:

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi, fare clic inserire > Modulo, copia e incolla sotto il codice nel modulo vuoto aperto, vedi screenshot:

Codice VBA: conta il numero di immagini in linea e forme mobili:

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. Dopo aver incollato il codice, quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di prompt per indicare quante immagini in linea e forme fluttuanti in questo documento di Word, vedere screenshot:

doc conteggio immagini 4




Strumenti di produttività di Word consigliati

Kutools per Word - Oltre alle funzionalità avanzate di 100 per Word, risparmia il tuo tempo 50%

  • Le operazioni complicate e ripetute possono essere eseguite in un'unica volta in pochi secondi.
  • Inserire più immagini contemporaneamente in cartelle in un documento di Word.
  • Unisci e combina più file di Word tra cartelle in un unico ordine.
  • Dividi il documento corrente in documenti separati in base a titolo, interruzione di sezione o altri criteri.
  • Converti file tra Doc e Docx, Docx e PDF, raccolta di strumenti per conversioni e selezioni comuni e così via ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.