删除文档里多余的样式

一定注意备份，不知道有没有副作用

原理是新建一个空文档，记录所有样式，删除当前文档里，没有出现在默认样式里的样式

function tt(){
    const s = []
    const d = Documents.Add()
    for (const i of d.Styles) {
        s.push(i.NameLocal)
    }
    d.Close()
    for (const i of ActiveDocument.Styles) {
        if (!s.includes(i.NameLocal)) {
            i.Delete()
        }
    }
}