Bob necesita contar todos los gráficos de un documento. Algunos de los gráficos están en línea y otros son flotantes. Algunas se insertaron como imágenes y otras se crearon con las herramientas de dibujo de Word. Bob sospecha que hay entre 150 y 200 gráficos en el documento, pero le encantaría una forma de obtener un conteo rápido.

Hay un par de cosas que puede intentar para que sus gráficos cuenten. Lo primero es utilizar una simple búsqueda y reemplazo. Todo lo que necesita hacer es buscar ^ gy reemplazar con ^ &. Eso encuentra cualquier gráfico y lo reemplaza con lo que se encontró. En otras palabras, no hay cambios en su documento. Sin embargo, Word le informa, cuando termina, cuántos «reemplazos» se realizaron. Este recuento es el número de gráficos en su documento.

El problema con este enfoque es que solo cuenta las imágenes en línea dentro del documento. No «busca ni reemplaza» nada en la capa de dibujo. Para obtener todas las imágenes, deberá probar un enfoque diferente. Por ejemplo, puede utilizar la función Ir a de Word. Presione F5 para mostrar la pestaña Ir a del cuadro de diálogo Buscar y reemplazar. Si elige Gráfico en el lado derecho de la pantalla, puede recorrer los gráficos del documento haciendo clic en el botón Siguiente. Si tiene muchos gráficos, simplemente puede poner algo como +150 en el cuadro y hacer clic en Ir a. Saltará a ese número gráfico, si está disponible, y luego podrá pasar por los restantes, contando a medida que avanza.

Este enfoque es mejor para encontrar gráficos que el enfoque de buscar y reemplazar. Sin embargo, no es perfecto, ya que hay lugares en su documento donde se pueden colocar gráficos que Ir a no captará.

(O, sinceramente, mediante el Explorador de objetos, que utiliza el mismo mecanismo de búsqueda que Ir a). Este enfoque busca gráficos que están en línea y en la capa de dibujo. Sin embargo, no los encuentra en otros lugares, como encabezados o pies de página. Para encontrarlos e incluirlos en el recuento, deberá utilizar una macro. La siguiente es una macro que proporcionará un recuento de gráficos más inclusivo:

Sub CountGraphics()

Const sBkMk = "ReturnHere"



Dim lngSections As Long     Dim lngSectionCounter As Long     Dim lngMainDocInlineShapes As Long     Dim lngMainDocShapes As Long     Dim lngHdrInlineShapes As Long     Dim lngHdrShapeRange As Long     Dim lngFtrInlineShapes As Long     Dim lngFtrShapeRange As Long     Dim lngTotalInlineShapes As Long     Dim lngTotalShapes As Long     Dim sMsgText As String

Application.ScreenUpdating = False

'Get the number of sections in the document.

lngSections = ActiveDocument.Sections.Count

'Get the number of inline objects and     'shape objects in the main document     lngMainDocInlineShapes = ActiveDocument.InlineShapes.Count     lngMainDocShapes = ActiveDocument.Shapes.Count

'Insert a bookmark to return to this place in the document.

ActiveDocument.Bookmarks.Add sBkMk, Selection.Range

'Go to the first page of the document.

Selection.HomeKey wdStory, wdMove

'Cycle through all of the sections in the document     'looking in headers and footers for graphics     For lngSectionCounter = 1 To lngSections         'Go to the header of the current page         ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageHeader         Selection.WholeStory         'Get the number of inline objects and shape objects         lngHdrInlineShapes = lngHdrInlineShapes _           + Selection.Range.InlineShapes.Count         lngHdrShapeRange = lngHdrShapeRange _           + Selection.Range.ShapeRange.Count

'Go to the footer of the current page         ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter         Selection.WholeStory         'Get the number of inline objects and shape objects         lngFtrInlineShapes = lngFtrInlineShapes _           + Selection.Range.InlineShapes.Count         lngFtrShapeRange = lngFtrShapeRange _           + Selection.Range.ShapeRange.Count

Selection.GoTo wdGoToSection, wdGoToNext     Next

'Go to the main body of the document.

ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocument

'Enable automatic screen updates     Application.ScreenUpdating = True     Application.ScreenRefresh

'Go to the bookmark that was inserted earlier.

If ActiveDocument.Bookmarks.Exists(sBkMk) Then         Selection.GoTo wdGoToBookmark, , , sBkMk         ActiveDocument.Bookmarks(sBkMk).Delete     Else         MsgBox "The bookmark '" & sBkMk & "' does not exist."

End If

'Calculate the total number of inlineshape objects     'and (shape and shaperange) objects     lngTotalInlineShapes = lngMainDocInlineShapes _       + lngHdrInlineShapes + lngFtrInlineShapes     lngTotalShapes = lngMainDocShapes _       + lngHdrShapeRange + lngFtrShapeRange

'Include the values from the variables into the     'text of the message     sMsgText = vbTab & vbTab & "Inline Shapes" _       & vbTab & "Other Shapes" & vbCr _       & "Main Document:" & vbTab & lngMainDocInlineShapes _       & vbTab & vbTab & lngMainDocShapes & vbCr _       & "Headers:" & vbTab & vbTab & lngHdrInlineShapes _       & vbTab & vbTab & lngHdrShapeRange & vbCr _       & "Footers:" & vbTab & vbTab & lngFtrInlineShapes _       & vbTab & vbTab & lngFtrShapeRange & vbCr _       & "Total:" & vbTab & vbTab & lngTotalInlineShapes _       & vbTab & vbTab & lngTotalShapes & vbCr & vbCr _       & "Note: The values for the headers and the footers " _       & "could include duplicates."



'Display the results of the procedure.

MsgBox sMsgText End Sub

Tenga en cuenta que la macro no solo obtiene la cantidad de gráficos en el documento principal, sino que también recorre cada sección del documento y examina los encabezados y pies de página en busca de gráficos. Hay un par de cosas para recordar con esta macro que pueden afectar la precisión del recuento devuelto. Todos estos elementos son parte integrante de la forma en que Word trata los gráficos en un documento.

  • Si el documento contiene un lienzo de dibujo, se trata como un solo gráfico (un objeto de forma), independientemente del número de formas individuales que contenga.

  • Las formas separadas se cuentan por separado. Cuando se agrupan formas separadas, se cuentan como una única forma.

Finalmente, existe otra forma en la que puede intentar obtener un recuento de gráficos: simplemente guarde su documento como una página web (en formato HTML). Como parte del proceso de guardar de esta manera, Word guarda los archivos gráficos del documento en su propia carpeta. Todo lo que necesita hacer es mirar la cantidad de archivos en la carpeta y tendrá una buena idea de cuántos gráficos había en el documento. (La forma de guardar un documento en formato HTML se trata en otros WordTips.)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (10388) se aplica a Microsoft Word 2007, 2010, 2013 y 2016. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Word aquí: link: / word-Counting_All_Graphics [Contando todos los gráficos].