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

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.*

这个应该能满足你的需求


Sub 移除样式并保留格式()
     Dim Para As Paragraph
     Dim Fnt As Font '代表字体的所有格式
     Dim Pfmt As ParagraphFormat '代表段落的所有格式
     For Each Para In ActiveDocument.Paragraphs
         With Para
             If .Style <> ActiveDocument.Styles("正文") Then '如果不是正文样式，则开始处理
                Set Fnt = .Style.Font '获得段落样式的所有字体属性，赋给fnt
                Set Pfmt = .Style.ParagraphFormat '获得段落样式的所有段落属性，赋给pfmt
                .Style = ActiveDocument.Styles("正文") '把它的样式改为正文
                .Range.Font = Fnt '为改变样式后的段落设置回原来的字体属性
                .Range.ParagraphFormat = Pfmt '为改变样式后的段落设置回原来的段落属性
             End If
         End With
     Next
End Sub

  
【 在 gnwd (gnwd) 的大作中提到: 】
:  默认样式也能去掉吗
:  我想要的是只有格式，没有样式
:  
:  删除自定义样式格式会变吗
--
FROM 59.47.226.*

ctrl c+shift  貌似可以只复制格式
【 在 gnwd 的大作中提到: 】
: 这是我自己用了很多的样式，把一个文档给整理好了，但是想发送出去的时候把什么目录结构然后题注等样式全去掉。但是整个文档看起来跟没有样式的时候是一样的。  
: --来自微微水木3.5.12  
: --  
:

发自「今日水木 on V1814A」
--
FROM 111.192.246.*