Counting Graphics

mohsen.amiri · #1 06-18-2015, 12:26 AM

Hello
How can count graphic elements? (Both In-line with text, Tights, Square and ...)? '^g' just count 'In-Line with Text' elements.
Mohsen

mohsen.amiri · #2 06-19-2015, 01:59 PM

No one wants to answer?

macropod · #3 06-19-2015, 04:18 PM

Word's Find/Rerplace tools will only find (and count) in-line graphics. For anything more you'd need a macro.

mohsen.amiri · #4 06-19-2015, 08:23 PM

macropod
Would you write a macro for me to count all graphics? if you can not do it?

macropod · #5 06-19-2015, 09:46 PM

You could use a macro like:

Code:

Sub CountObjects()
Dim Rng As Range, i As Long, j As Long
With ActiveDocument
  For Each Rng In .StoryRanges
    On Error Resume Next
    With Rng
      i = i + .InlineShapes.Count
      j = j + .ShapeRange.Count
    End With
  Next Rng
  MsgBox "The active document contains:" & vbCr & _
    i & " inline shapes & " & j & " floating shapes."
End With
End Sub

mohsen.amiri · #6 06-22-2015, 08:52 PM

Hi
Thank you very much. It did.
Now would you have a look at below thread:
https://www.msofficeforums.com/word/...html#post84527
Thanx in advance.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Counting Pics	mohsen.amiri	Word	2	04-19-2015 08:52 PM
Counting unique visitors by ward, counting monthly visits by status, editing existing workbook	JaxV	Excel	9	11-14-2014 12:25 AM
various data needs counting	apples	Excel	2	09-16-2012 04:52 AM
Counting Colors	g48dd	Excel	2	03-13-2011 09:28 PM
Counting Weeks	leroytrolley	Excel	1	08-18-2008 11:12 AM