alt+f11，运行下面vba

  

Sub DeleteUserStyles()
    On Error Resume Next

    Dim oStyle As Style, count
    count = 0
    
    For Each oStyle In ActiveDocument.Styles
        ' 只检查用户自定义样式
        If oStyle.BuiltIn = False Then
              
            oStyle.Delete
            count = count + 1
        End If
    Next oStyle
    
End Sub




  
【 在 gnwd (gnwd) 的大作中提到: 】
:  这是我自己用了很多的样式，把一个文档给整理好了，但是想发送出去的时候把什么目录结构然后题注等样式全去掉。但是整个文档看起来跟没有样式的时候是一样的。
:  --来自微微水木3.5.12
:  --
:  
--
FROM 182.204.43.*