Office2019如何批量删除艺术字
时间:2023-11-08 01:11:33
如果你确认了是艺术字且不是嵌入型的,可以按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
需要将文档另存为为带有宏的格式文档,然后执行.
标签:Office批量删除艺术字
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win11系统如何添加辅助和多个IP地址
2023-05-21 19:47:02
![](https://img.aspxhome.com/file/2023/28/a240761_0s.jpg)
荣耀20怎么开启省电模式?荣耀20省电模式开启教程
2023-06-04 09:37:31
![](https://img.aspxhome.com/file/2023/6/a324982_0s.jpg)
PPT中各种视频格式的插入方法
2022-05-05 10:09:14
新买的电脑如何分区?
2023-09-22 19:34:28
![](https://img.aspxhome.com/file/2023/3/a292540_0s.png)
excel表格里的箭头怎么画
2023-08-01 14:01:38
电脑WPS文档如何修改底纹颜色
2022-03-08 11:49:02
![](https://img.aspxhome.com/file/2023/8/a184128_0s.png)
荔枝FM怎么分享直播?荔枝FM分享直播的方法
2023-04-07 18:17:36
![](https://img.aspxhome.com/file/2023/8/a334133_0s.jpg)
苹果MAC教程:spotlight搜索的意思说明
2022-10-27 00:57:27
![](https://img.aspxhome.com/file/2023/2/a215642_0s.jpg)
NVIDIA TITAN X星战典藏版官图:霸气十足
2023-06-29 03:31:37
![](https://img.aspxhome.com/file/2023/3/a292969_0s.jpg)
华硕飞行堡垒7笔记本电脑评测、参数、价格、图片
2023-04-08 02:54:52
![](https://img.aspxhome.com/file/2023/4/a305652_0s.jpg)
asupport.exe是什么进程 asupport进程信息查询
2023-01-05 01:46:39
wps文档中的文字怎么改变文字显示方向?
2022-08-21 08:00:32
![](https://img.aspxhome.com/file/2023/7/a166687_0s.jpg)
PPT中如何设计创意的逗号时间线?
2023-06-29 10:10:46
![](https://img.aspxhome.com/file/2023/4/a303367_0s.jpg)
QQ输入法怎么快速输入数学符号?
2023-01-23 03:29:41
![](https://img.aspxhome.com/file/2023/5/a317407_0s.png)
WPS Excel DEC2HEX 函数怎么用
2023-05-22 08:04:27
![](https://img.aspxhome.com/file/2023/2/a187332_0s.jpg)
excel表格怎样设置按条件内容筛选
2023-03-07 10:02:42
Win10 10240用户获得Edge浏览器内置的企业模式怎么使用?
2023-06-24 12:27:05
![](https://img.aspxhome.com/file/2023/28/a247901_0s.jpg)
还不会刷Win10/Win11?一款工具让你一键为小米MIX2S刷入Windows!
2023-07-18 12:55:32
![](https://img.aspxhome.com/file/2023/28/a240470_0s.jpg)
SUM/SUMIF/SUMIFS函数的区别
2022-03-10 12:37:18
![](https://img.aspxhome.com/file/2023/4/a157184_0s.png)
excel表格if函数的使用教程
2022-12-29 22:06:22