vba - 替换word文档中的所有标题样式

Question

我有一些具有自定义标题样式的 Word 文档。

我想遍历文档中的所有自定义标题，并将自定义样式替换为标准标题样式。

例如：

Custom Style                Standard Style
===================         ==============
Heading 1. Numbered   -->   Heading 1
Heading 2. Numbered   -->   Heading 2
Heading 3. Numbered   -->   Heading 3

依此类推，直到标题 5 ...

我正在使用 MS Word 2007。

问题：我怎样才能用 VBA 做到这一点？

Answer 1

这对我有用：

Sub Macro1()

    Dim DocPara As Paragraph

    For Each DocPara In Application.ActiveDocument.Paragraphs
        If DocPara.Range.Style Is Nothing Then
            ' do nothing
        Else
            Dim I As Integer
            Dim H As String
            For I = 1 To 5
                H = "Heading " + CStr(I) + ". Numbered"
                If Left(DocPara.Range.Style, Len(H)) = H Then
                    DocPara.Range.Style = "Heading " + CStr(I)
                End If
            Next I
        End If
    Next

End Sub

代码改编自： https ://stackoverflow.com/a/276397/1033422