批量删除wps/word中的艺术体字【水印】

Sub NumToTxt删除() ' ' NumToTxt删除 宏 ' ' Dim sh As Shape For Each sh In ActiveDocument.Shapes If sh.Type = msoTextEffect Then sh.Delete End If Next End Sub 注意：可以使用嵌套方式，将以上做成函数，   Sub批量删除艺术字() ' ' 批量删除艺术字 宏 ' ' For i = 0 To 200 delWord Next End Sub Function d...【查看原文】