office如何设置艺术字，office设置艺术字

本内容由小编为大家分享，办公系统、软件怎么使用、软件使用教程、办公软件攻略等信息。

如果你确认了是艺术字且不是嵌入型的，可以按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

需要将文档另存为为带有宏的格式文档，然后执行

Office2019如何批量删除艺术字的下载地址： 本地下载

Xtw.com.Cn系统网专业应用软件下载教程，免费windows10系统,win11,办公软件,OA办公系统,OA软件,办公自动化软件,开源系统,移动办公软件等信息，解决一体化的办公方案。