VBA字-更改标题使它失去了它的风格

Question

Sub changeHeading()
    Dim p As Paragraph
    For Each p In ActiveDocument.Paragraphs
        If p.Style = "Heading 2" Then _
            If p.Range.Text = "Old Heading" & vbCr Then p.Range.Text = "New Heading" & vbCr
    Next p
End Sub

1.4 Old Heading
some text

New Heading
1.4 some text    

其中某些文本具有标题2的样式，新标题具有标题的字体大小，但没有编号。

第二个问题，它需要难以置信的长时间（一个只有几个段落的小文档需要几秒钟）。

那么，如何更改标题呢？如何在一个大文件上以不需要几分钟的方式完成？谢谢你的帮助。

Call p.Range.Find.Execute(FindText:="Old Heading", ReplaceWith:="New Heading")

Answer 1

样式改变的原因是因为您正在覆盖段落标记（vbCr）。段落级格式与段落字符直接相关联。当您删除它时，然后在下一个段落的开头插入另一个，新段落将采用它最初所在段落的格式。

顺便说一句，使用range.find和Replace可能比循环段落集合效率高得多。Word的查找功能也可以搜索格式。因此，您可以使用一个查找操作来定位标题2样式和特定文本（没有段落标记）。然后使用Replace写入新文本。

在Word UI中测试，然后录制一个宏，得到基本语法。