title: Replace Images in Word Document with string/text placeholder
body: <p>I have a 2010 Word document with some images. I have already exported out the images one by one. Because of the formatting of the document's destination, I need to remove all the images and leave a text block (something like [[Image1.jpg]]) where the image once was.</p>
  
  <p>The name of the image is actually unimportant. I just need to swap the image for text. I am completely new to VBA in Word. </p>
  
  <p>Here is some other code to resize the images, can this be modified to delete the image and at that location, insert some text?</p>
  
  <pre><code>Dim oShp As Shape
  Dim oILShp As InlineShape
  
  For Each oShp In ActiveDocument.Shapes
      With oShp
          .Height = AspectHt(.Width, .Height, _
          CentimetersToPoints(11))
          .Width = CentimetersToPoints(11)
      End With
  Next
  
  For Each oILShp In ActiveDocument.InlineShapes
      With oILShp
          .Height = AspectHt(.Width, .Height, _
          CentimetersToPoints(11))
          .Width = CentimetersToPoints(11)
      End With
  Next
  End Sub
  </code></pre>