Office2019批量删除艺术字

最新推荐文章于 2023-09-12 14:26:01 发布

@小匠

最新推荐文章于 2023-09-12 14:26:01 发布

阅读量1.4k

点赞数

分类专栏：其他

原文链接：https://zhidao.baidu.com/question/1948568236397191548.html

版权

其他专栏收录该内容

4 篇文章 0 订阅

订阅专栏

这篇博客提供了两种VBA代码段，用于在Word文档中批量删除艺术字。第一段代码针对msoTextEffect类型的艺术字，第二段则针对msoTextBox类型的对象。用户需先保存文档为带有宏的格式，然后运行宏来执行删除操作。

摘要由CSDN通过智能技术生成

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

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