急！求助各位大侠

ymcly2009

各位大侠，一个word文件中如果设置了样式（比如设置了标题1、标题2等），那么点击“视图“选项卡中的”导航窗格“，word界面的左侧会显示”标题“等部分，如何将设置的样式去掉，但能够保留右侧文档部分的即定格式（如字体、段落等）不变。偿试了几次，删除样式时，一般情况下右侧的文档正文全部变为5号字体，无任何段落格式了。在网上搜了一下，利用VBA也没有成功，我不懂VB，结果执行后也是与直接删除样式的结果一样，但网上的截图显示是正确的，求帮忙！我是将多个word文件前后汇总成一个文件，但有的word文件本身带有样式设置，与我整体设置样式相冲突。谢谢！

limonet

新建一个非标题的样式。

ymcly2009

limonet 发表于 2022-3-21 23:18
新建一个非标题的样式。

谢谢您的回复，您能简单说一下步骤吗，或者有一段VB的代码可以粘贴的也可以，但网上的代码我用了相当于直接删除样式，正文格式均变化了，谢谢！

ymcly2009

我在网上的找到了一段VB代码如下，但在运行时显示错误5941
Sub DirectFormat()
     Dim para As Paragraph
     Dim fnt As Font
     Dim pfmt As ParagraphFormat
     For Each para In ActiveDocument.Paragraphs
         With para
             If .Style <> ActiveDocument.Styles("Normal") Then
             Set fnt = .Style.Font
             Set pfmt = .Style.ParagraphFormat
             .Style = ActiveDocument.Styles("Normal")
             .Range.Font = fnt
             .Range.ParagraphFormat = pfmt
             End If
         End With
     Next
End Sub

limonet

我创建了一个“Create”的样式，与标题2差别就是没有大纲，也就是不会在”导航窗格“显示。

ymcly2009

limonet 发表于 2022-3-22 12:16
我创建了一个“Create”的样式，与标题2差别就是没有大纲，也就是不会在”导航窗格“显示。

您好，我打开了文件，”导航窗格“还是有显示哈，谢谢您，还有什么办法吗

limonet

你再仔细看看。

ymcly2009

limonet 发表于 2022-3-22 16:03
你再仔细看看。

谢谢您的回复，抱歉，应该我表达的不清楚，我想表达的是所有的标题1、标题2等，即所有的左侧设置了样式的，通过设置全部去掉，不要逐个去掉或变动，通过一种方式一次性解决，这个图片是我从网上下载的，但我根据其步骤未能解决，谢谢您！

ymcly2009

有哪位朋友能够帮忙解决这个问题吗，谢谢