word2010 批量去除艺术字

发布网友发布时间：2022-03-29 05:45

共1个回答

热心网友时间：2022-03-29 07:14

　　如果你确认了是艺术字且不是嵌入型的，可以按Alt+F11，打开VBA编辑窗口，放入下面这段代码：

Sub 删除艺术字()
   Dim sh As Shape
    For Each sh In ActiveDocument.Shapes
        If sh.Type = msoTextBox Then
            sh.Delete
        End If
    Next
End Sub

　　执行：可以在编辑窗口直接执行，或在视图——宏——查看宏：选中该宏名称——执行。可能会被存在一次删除不干净的情况，重复几次就可以了。

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com