Word文書のすべての画像を削除したいだけです。約365ページのドキュメントがあり、ほとんどすべてのページに画像があります。 1つずつ削除することはできません。 .txt形式で保存できますが、データのフォーマットが失われます。これを取得する他の方法はありますか?
高度な検索/置換
検索^ g
置換[空白のまま]
^g
の「検索内容:」。 「すべて置換」をクリックします Public Sub PicturesDeleteAll()
Dim objPic As Shape
For Each objPic In ActiveDocument.Shapes
objPic.Delete
Next objPic
End Sub
インラインシェイプの場合、「Shape」を「InlineShape」に、「。Shapes」を「.InlineShapes」に置き換えます
すべての画像をマスクできるGoogleドキュメントのアドオンがあるため、フォーマットが保持されます。 Add-on Image Extractor&Removerがそれを実行しているのがわかります。