как заменить определенные изображения (по имени) на соответствующий текст в слове с помощью VBA

Question

мне нужно заменить изображения в моем текстовом документе текстом, например: graphic1 -> text1 graphic2 -> text2 и т.д.

Есть идеи? это возможно?

Answer 1

Пока что лучшим способом было найти отличительные свойства изображений (например, высоту и ширину) и заменить их, как показано ниже:

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