Come contare il numero di immagini in un documento di Word?
Se ci sono più elementi grafici nel tuo documento Word che contengono sia immagini in linea che forme mobili, ora, vuoi contare il numero di questi elementi grafici nell'intero documento, come potresti ottenere il numero di immagini rapidamente e correttamente?
Conta il numero di immagini in linea con la funzione Trova e sostituisci
Contare il numero di immagini in linea e forme mobili con codice VBA
Conta il numero di immagini in linea con la funzione Trova e sostituisci
I Trova e sostituisci la funzione in Word può aiutarti a contare il numero di immagini in linea solo rapidamente e facilmente, fai come segue:
1. Clic Casa > Trovare > Ricerca avanzata, vedi screenshot:
2. Nel Trova e sostituisci finestra di dialogo, sotto il file Trovare scheda, digita il file ^g nella Trova quello che casella di testo e quindi scegliere Documento principale dal Trova dentro elenco a discesa, vedi screenshot:
3. E poi puoi vedere il numero delle immagini in linea in questo documento di Word è stato visualizzato come mostrato nella seguente schermata:
Contare il numero di immagini in linea e forme mobili con codice VBA
Il metodo sopra può contare solo il numero di immagini in linea, se ci sono alcune forme mobili nel documento, non verranno conteggiate. Il seguente codice VBA può aiutarti a contare sia le immagini in linea che le forme mobili, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Quindi, fare clic inserire > Moduli, 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 messaggio per dirti quante immagini in linea e forme mobili in questo documento di Word, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Kutools for Word - Migliora la tua esperienza con le parole con Over 100 Caratteristiche notevoli!
🤖 Assistente AI di Kutools: Trasforma la tua scrittura con l'intelligenza artificiale - Genera contenuto / Riscrivere il testo / Riepilogare i documenti / Richiedi informazioni sulla base del documento, tutto all'interno di Word
📘 Padronanza dei documenti: Pagine divise / Unisci documenti / Esporta la selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF / Esporta pagine come immagini / Stampa più file contemporaneamente...
✏ Modifica dei contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasporre righe e colonne della tabella / Converti tabella in testo...
🧹 Pulito senza sforzo: Spazza via Spazi extra / Interruzioni di sezione / Tutte le intestazioni / Caselle di testo / Collegamenti ipertestuali / Per ulteriori strumenti di rimozione, vai al nostro Rimuovi gruppo...
➕ Inserti creativi: Inserisci Mille separatori / Caselle di controllo / Pulsanti di scelta / QR Code / Codice a barre / Tabella della linea diagonale / Didascalia dell'equazione / Didascalia immagine / Didascalia / Immagini multiple / Scopri di più nella Inserisci gruppo...
???? Selezioni di precisione: Individuare pagine specifiche / con tabelle / forme / paragrafi di intestazione / Migliora la navigazione con Scopri di più Seleziona funzionalità...
⭐ Miglioramenti delle stelle: Naviga rapidamente verso qualsiasi luogo / inserire automaticamente testo ripetitivo / passare senza problemi da una finestra all'altra del documento / 11 strumenti di conversione...