word 中的背景图片(浮动图形)怎么批量删除

用 pdf 转换成 word 后会有背景图片

这些图片一张张删除太麻烦了，怎么批量删除呢？

首先这些图片是 浮动图形 而不是嵌入式图片，所以不能用替换全部删除。最后还是用 vba 代码删除了。

Sub 删除浮动式图片() 
    Application.ScreenUpdating = False
    Do While ActiveDocument.Shapes.Count > 0
        For Each Shape In ActiveDocument.Shapes
            Shape.Delete
        Next
    Loop
    Application.ScreenUpdating = True
End Sub

点击 视图=》宏=》查看宏

输入宏名称：删除浮动式图片，并点击创建

将代码 copy 上保存关闭即可

然后运行宏：再次点击查看宏

点击运行即可。