有这么一个Word文档
里面插入了9张图片
其中第1页有4张嵌入型图片
所谓嵌入型，就是把图片当字符处理的
第2页有5张非嵌入型图片
包括四周型、紧密型、穿越型、上下型、文字上方、文字下方
这几种类型都是属于图片类型
1、用查找替换批量删除嵌入型图片
ctrl+h
查找内容里输入 ^g
点击全部替换
就把第1页word里的4张图片删除了
2、另外5张非嵌入型图片
开发工具，VB或者alt+f11
然后插入，模块
双击模块1
把代码粘贴过来
Sub PicDel()
Dim doc As Document, i&, n&, S As Shape
Set doc = ActiveDocument
If doc.Shapes.Count = 0 Then Exit Sub
文章内容收集于网络，希望能为广大朋友提供帮助。强国说-WPS之家(wps.qiangguoshuo.com)
n = doc.Shapes.Count
For i = n To 1 Step -1
Set S = doc.Shapes(i)
If S.Type = 13 Then S.Delete
Next
End Sub
关闭VBA窗口
ALT+F8
运行
就全部删除干净了
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
