1. word2010 批量去除艺术字
如果你确认了是艺术字且不是嵌入型的,可以按Alt+F11,打开VBA编辑窗口,放入下面这段代码:
Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextBox Then
sh.Delete
End If
Next
End Sub 执行:可以在编辑窗口直接执行,或在视图——宏——查看宏:选中该宏名称——执行。可能会被存在一次删除不干净的情况,重复几次就可以了。
转载请注明出处51数据库 » word批量删除艺术字