Counting Graphics

[mohsen.amiri]

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]

No one wants to answer?

[macropod]

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

[mohsen.amiri]

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

[macropod]

You could use a macro like:

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]

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.