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

Question

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

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

例如：

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

这为我工作：https://stackoverflow.com/a/276397/1033422

：改编自

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 

代码