dear macropod

again thanks for your efforts
in your code it gave me errowr in compiling "sub or function not defined" and i able to fix it
the problem was in this line: With InlineShapes(i)
i fixed to: With .InlineShapes(i)
but i found runtime errowr when use macro in a document erowr 5917
and am try to fix it,
If Len(Trim(.TextFrame.TextRange.Text)) > 1 Then

wish help me in this
and i'll try it on another ofice version.

many thanks for your advice.