¿Cómo contar la cantidad de imágenes en un documento de Word?
Si hay varios gráficos en su documento de Word que contienen imágenes en línea y formas flotantes, ahora desea contar el número de estos gráficos en todo el documento, ¿cómo podría obtener el número de imágenes de forma rápida y correcta?
Cuente el número de imágenes en línea con la función Buscar y reemplazar
Cuente el número de imágenes en línea y formas flotantes con código VBA
Cuente el número de imágenes en línea con la función Buscar y reemplazar
La Buscar y reemplazar La función en Word puede ayudarlo a contar la cantidad de imágenes en línea solo de manera rápida y fácil, haga lo siguiente:
1. Hacer clic Inicio > Encuentre > Búsqueda avanzada, ver captura de pantalla:
2. En la Buscar y reemplazar cuadro de diálogo, debajo del Encuentre pestaña, escriba la ^g en el Encuentra lo que cuadro de texto y luego elija Documento principal del desplegable Encontrar en lista desplegable, ver captura de pantalla:
3. Y luego puede ver que el número de imágenes en línea en este documento de Word se ha mostrado como se muestra en la siguiente captura de pantalla:
Cuente el número de imágenes en línea y formas flotantes con código VBA
El método anterior solo puede contar el número de imágenes en línea, si hay algunas formas flotantes en el documento, no se contarán. El siguiente código VBA puede ayudarlo a contar tanto las imágenes en línea como las formas flotantes, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Luego, haz clic recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto, vea la captura de pantalla:
Código de VBA: cuente el número de imágenes en línea y formas flotantes:
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. Después de pegar el código, presione F5 para ejecutar este código, y aparece un cuadro emergente para indicarle cuántas imágenes en línea y formas flotantes en este documento de Word, vea la captura de pantalla:
Las mejores herramientas de productividad de oficina
Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!
🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido / Reescribir texto / Resumir documentos / Solicite información basado en el documento, todo dentro de Word
📘 Dominio del documento: Dividir páginas / Combinar documentos / Exportar selección en varios formatos (PDF/TXT/DOC/HTML...) / Convertir por lotes a PDF / Exportar páginas como imágenes / Imprima varios archivos a la vez...
✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos / Cambiar el tamaño de todas las imágenes / Transponer filas y columnas de tabla / Convertir tabla en texto...
🧹 Limpieza sin esfuerzo: barrer Espacios extra / Saltos de sección / Todos los encabezados / Cuadros de texto / Los hipervínculos / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...
➕ Inserciones creativas: Insertar Mil Separadores / Casillas de verificación / Botones de radio / Código QR / Barcode / Tabla de líneas diagonales / Título de la ecuación / Captura de imagen / Pie de tabla / Varias imágenes / Descubre más en el Insertar grupo...
🔍 Selecciones de precisión: Localizar páginas específicas / tablas / formas / párrafos de encabezado / Mejorar la navegación con más, Seleccionar características...
⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación / insertar automáticamente texto repetitivo / alternar sin problemas entre ventanas de documentos / 11 herramientas de conversión...