Office2019如何批量删除艺术字
Office2019如何批量删除艺术字
如果你确认了是艺术字且不是嵌入型的,可以按Alt+F11,打开VBA编辑窗口,放入下面这段代码:
Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextEffect Then
sh.Delete
End If
Next
End Sub
如果没用试试下面这个
Sub 删除艺术字()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
If sh.Type = msoTextBox Then
sh.Delete
End If
Next
End Sub
需要将文档另存为为带有宏的格式文档,然后执行
相关文章
- 一加 27W 冰点散热:高功率低噪音双制冷片,冷静制胜,畅享体验
- 大疆颠覆航拍界!史上最小无人机DJI Neo震撼发布!
- 华硕IFA 2024放大招!全新ZenBook S14惊艳亮相,性能与设计全面升级!
- 百度地图大动作!《黑神话:悟空》八戒语音包即将来袭!
- 华为三折屏手机即将亮相,而iPhone16却传来创新乏力的声音?
- 微信iOS系统更新啦!苹果放行,网友热议背后的利益博弈。
- 淘宝正式宣布接入微信支付,电商巨头合作引发热议!支付宝地位会受影响吗?
- 小米 14U、OPPO X7U 和 vivo X100 U 该怎么选?
- 一加 Ace 3与Redmi Turbo 3区别?一加 Ace 3 与 Redmi Turbo 3 哪个更值得购买?
- 厉害了,全新腾讯混元Turbo模型发布 价格再低50%