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

 LDboffice教程网

Sub 删除艺术字()LDboffice教程网
Dim sh As ShapeLDboffice教程网
For Each sh In ActiveDocument.ShapesLDboffice教程网
If sh.Type = msoTextEffect ThenLDboffice教程网
sh.DeleteLDboffice教程网
End IfLDboffice教程网
NextLDboffice教程网
End SubLDboffice教程网
LDboffice教程网

 LDboffice教程网

如果没用试试下面这个LDboffice教程网

 LDboffice教程网

Sub 删除艺术字()LDboffice教程网
Dim sh As ShapeLDboffice教程网
For Each sh In ActiveDocument.ShapesLDboffice教程网
If sh.Type = msoTextBox ThenLDboffice教程网
sh.DeleteLDboffice教程网
End IfLDboffice教程网
NextLDboffice教程网
End SubLDboffice教程网
LDboffice教程网

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

 LDboffice教程网