用文字替換文字文件中的特定圖像

我手動刪除出現在文字文件中多個段落開頭的特定圖像，並用文本「Picture_replaced」替換它。有人可以幫助我使用VBA腳本自動執行上述活動。用文字替換文字文件中的特定圖像

注意：圖像/圖片總是出現在段落的開頭。有多行包含要替換的圖像。並不是每一行都有這個特定的圖像。文件中還有其他圖像/圖片，不應該被觸摸。

2014-03-12 user2618115

以下宏將替換企鵝圖像的所有實例。

Public Sub removePenguins() 

    Dim objPic As InlineShape 
    For Each objPic In ActiveDocument.InlineShapes 
     If objPic.AlternativeText = "Penguins.jpg" Then 

      objPic.Select 

      Selection.Delete Unit:=wdCharacter, Count:=1 
      Selection.TypeText Text:="[Image replaced] " 


     End If 
    Next objPic 
End Sub

只需將AlternativeText條件替換爲圖像的替代文本即可。

來源

2014-03-12 11:07:39 Aidan

感謝您的快速回復。你能解釋一下如何找到與圖像相關的AlternativeText。它是圖像的一個特徵嗎？我發現我想替換的圖片的height = 0.34'和Width = 0.34'。 – user2618115

右鍵單擊 - >格式圖片 - > Alt Txt選項卡沒有任何詳細信息。 – user2618115

我從調試宏和檢查objPic對象中獲得了替代文本。它似乎是默認的文件名。如果你在「if objPic ...」上放置斷點並查看objPic的值，你應該看看它是什麼。 – Aidan

用文字替換文字文件中的特定圖像

回答

相關問題