VBA

Question

内のJavaScriptコード私はクロームで、コンソールでこれをテストし、それが私一度

でHTMLドキュメント内のすべての画像を削除単語

var images = document.getElementsByTagName('img'); 
var l = images.length; 
for (var i = 0; i < l; i++) { 
    images[0].parentNode.removeChild(images[0]); 
} 

ため、私はVBAを持っているいくつかのJavaScriptコードを書きたいですこの

Public Sub PicturesDeleteAll() 

Dim objPic As Shape 

    For Each objPic In ActiveDocument.Shapes 
      objPic.Delete 
    Next objPic 

End Sub 

を使用して画像を削除するには、私ができた

画像を単語2010でHTMLドキュメントを開き、削除したいです

しかし、それらを一度に削除するわけではありませんし、私はそれを何回か実行しなければならないので、私は持っているjavascriptコードのvba equivantは何ですか？

Answer 1

しかし、これが起こるというシナリオは見当たりませんが、削除すると逆の方向に行う方がアレイサイズが変わるのを避けて、目に見えるような誤解を招く可能性があります。

は、以下試してください： -

Public Sub PicturesDeleteAll() 
Dim LngCounter As Long 

For Each LngCounter = ActiveDocument.Shapes.Count to 0 Step -1 
    ActiveDocument.Shapes(LngCounter).Delete 
Next 
End Sub 

または

Public Sub PicturesDeleteAll() 
Do Until ActiveDocument.Shapes.Count = 0 
    ActiveDocument.Shapes(1).Delete 
Loop 
End Sub