这个应该能满足你的需求


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