Question

i need to replace images in my word document by text like:
graphic1 -> text1
graphic2 -> text2
etc

Any ideas? is that possible?

Answer 1

So far best way was to go and find distictive properties of images (like height and width) and replace them as below:

Dim myShape As InlineShape


For Each myShape In ActiveDocument.InlineShapes
  myShape.Select
  ActiveWindow.ScrollIntoView Selection.Range

  Select Case myShape.Width
  Case "13,5"

    Selection.Delete
    Selection.TypeText Text:=" g1"
  Case "8"

    Selection.Delete
    Selection.TypeText Text:=" g2"
  Case "19,5"

    Selection.Delete
    Selection.TypeText Text:=" g3"
  End Select

Next myShape