如何通過VBA

Question

更換某些圖像（按名稱），以各自的文本中的字，我需要通過文字像來代替我的Word文檔中的圖片： graphic1 - >文本1 graphic2 - >文本2 等

任何想法？那可能嗎？

Answer 1

到目前爲止，最好的辦法是去尋找圖像（如高度和寬度）的distictive性能和如下替換它們：

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