通过运行VBA来自动删除自定义样式
启用宏
按下Alt+F11切换到宏界面,如图:
宏界面
编辑宏
Sub KillStyles()
Dim style As Style
On Error Resume Next
For Each style In ActiveWorkbook.Styles
If Not style.BuiltIn Then
style.Delete
End If
Next style
End Sub
运行宏
点击工具栏中的“绿色三角”来执行宏。
网友评论