Office2019如何批量删除艺术字
发布时间：2023-11-08 01:11:33
标签：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
需要将文档另存为为带有宏的格式文档，然后执行.
0
投稿猜你喜欢
- 在Excel中录入数据的时候经常需要录入文本文档，这个时候就需要用到一个功能直接把文本文档转换到Excel从而无需手动录入。接下来是小编为大
有时为了保护电脑中资料的安全，有的win10用户会给自己的电脑加上开机密码，可是一段时间后，又有用户感觉麻烦想要取消开机密码，那么win10- 印象笔记的「内置模板功能」已经全新上线！现在应用模板非常方便，只要新建笔记就能一键创建模板。还能根据自己的需求创建自定义模板，帮你摆脱无效的
- 大家知道吗？想要通过安装AMD显卡来提高游戏性能，除了硬件安装，显卡驱动也很重要。如果发现ADM显卡安装之后无法设置，无法使用该怎么办？能不
- excel是非常好用的办公软件，单元格粘贴时其粘贴选项是灰色的，怎么解决呢，下面就一起看看吧大家都知道，excel是非常好用的办公软件，单元
- 我们都知道，文档的版面包括页面的高度和宽度，还有页边距等，近期有用户在问Word文档版面怎么设置？其实方法很简单，下面我们来看看这篇Word
- 对于开始菜单很多人都比较清楚，因为我们关机或者重启电脑的时候总是需要点击这边，不过不少用户反映说Win10开始菜单没反应，那么遇到这个问题该
- Excel中的隔行粘贴具体该如何进行操作呢?接下来是小编为大家带来的excel中进行隔行粘贴的方法，供大家参考。excel中进行隔行粘贴的方
- word是文字处理软件，通过他可以轻松的创建各种文档，包括日常办公、公文、求职简历、等其他较复杂的格式文档。现在就教大家word文档如何去掉
- 现在想要玩英雄联盟游戏必须下载WeGame才可以游玩，但是最近有不少用户在使用Win10电脑观看的时候却出现了用户账户控制的提示，遇到这种问
- Win10 Build 18363.815更新了什么？下文小编就为大家带来了详细更新内容介绍，感兴趣的朋友可以一起看看 4月22日
- 我们经常会遇见两台电脑共享同一份文件夹的情况，但是大多数人都不知道如何开启这个功能。今天小编带来了详细的教程，下面大家一起来看看吧。两台wi
- Win10如何禁止软件联网？近期有部分Win10用户想要对部分软件设置禁止联网，但是不知道具体应该如何操作是好，其实方法是非常简单的哦，今天
- 鸿蒙系统是华为公司在2019年发布的一款操作系统，在这款系统中，有很多功能都是以前手机中没有的，而且还将以前的功能升级了。在鸿蒙系统中有一个
- win7系统作为经典款的系统，稳定兼容性强，拥有众多的用户群体。但是也会偶尔遇到问题，比如打开软件的时候提示，应用程序错误无法正常启动0xc
- 如何在wps文本中将繁体中文转换为简体中文：1.首先，我们将打开wps并复制您想要转换的传统表单。2.然后我们单击查看==简化；3、当然，每
- 刚使用win7的朋友也许对win7的操作不是很熟悉，怎么批量删除Windows7下的WINDOWS.OLD文件夹，本文有详细的介绍分享给大家
- 在win11中，有很多没用的服务会默认打开，如果我们感觉自己系统卡顿可以尝试将他们优化关闭掉，那么win11服务怎么优化设置呢，下文就为大家
- Win10战地5单人剧情无法保存游戏进度怎么解决？有用户使用电脑玩战地5这款游戏的时候，遇到了游戏进度无法正常保存的情况。我们知道游戏进度非
- 以往小学教师经常需要制作带有拼音的PPT课件，在考试前期，很多小学教师要给学生出大量的“看拼音写汉字”的试题，应该怎样使用办公软件更加快速完
