我只想删除 Word 文档中的所有图片。我有大约 365 页的文档,其中几乎所有页面都有图片。我无法逐一删除。我可以将其保存为 .txt 格式,但我会丢失数据的格式。还有其他方法可以实现吗?
答案1
在高级查找/替换中
查找 ^g
替换 [留空]
答案2
- Ctrl+H
- 点击“更多>>”
- 点击“特殊”>“图形”
- 现在您可以
^g
在“查找内容:”中看到。点击“全部替换”
答案3
Public Sub PicturesDeleteAll()
Dim objPic As Shape
For Each objPic In ActiveDocument.Shapes
objPic.Delete
Next objPic
End Sub
对于内联形状,将“Shape”替换为“InlineShape”,将“.Shapes”替换为“.InlineShapes”