Che*_*lla 6 formatting microsoft-word
我只想删除word文档中的所有图像。我有大约 365 页的文档,其中几乎所有页面都有图像。我无法一一删除。我可以将它保存为 .txt 格式,但我会丢失数据的格式。有没有其他方法可以得到这个?
小智 0
Public Sub PicturesDeleteAll()
Dim objPic As Shape
For Each objPic In ActiveDocument.Shapes
objPic.Delete
Next objPic
End Sub
Run Code Online (Sandbox Code Playgroud)
对于内联形状,将“Shape”替换为“InlineShape”,将“.Shapes”替换为“.InlineShapes”
| 归档时间: |
|
| 查看次数: |
42112 次 |
| 最近记录: |