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

¿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

Programas de 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 > Encuentra > Búsqueda avanzada, ver captura de pantalla:

doc contar imágenes 1

2. En la Buscar y reemplazar cuadro de diálogo, debajo del Encuentra pestaña, escriba la ^g en el Encuentra lo que cuadro de texto y luego elija Documento principal de Encontrar en lista desplegable, ver captura de pantalla:

doc contar imágenes 2

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:

doc contar imágenes 3


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:

doc contar imágenes 4



Herramientas de productividad de palabras recomendadas

 

Kutools para Word: más de 100 funciones avanzadas para Word, ahorre su 50% de tiempo

  • Las operaciones complicadas y repetidas se pueden realizar un solo procesamiento en segundos.
  • Inserte varias imágenes en carpetas en un documento de Word a la vez.
  • Fusiona y combina varios archivos de Word en carpetas en uno con el orden que desees.
  • Divida el documento actual en documentos separados según el encabezado, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, etc.
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL