【VBA】word文档合并，子文档所有标题降级

    在整合文档的过程中，尤其不同格式word文件需要合并称一个文档的情况，会面临整个文档样式、标题样式等等不一致的情况，如果是上千也得文档在合并之后重新校对一遍格式，这样得工作量也是不容小觑的，作为程序员可以使用以下两把工具减少文档合并的工作量：

一、利用OpenXml的特点，确定基准样式

1. 将基础格式集成文档另存为xml格式的文件，使用文本工具提取<w:styles ..> </w:styles>整个标签内的所有数据。2.将子文档也存储为xml格式文件，替换<w:styles ..> </w:styles>标签内容为上一步提取的数据，保存后打开文档检查格式并简单调整即可。

二、使用降低标题级别VBA脚本操作子文档

在子文档中执行如下VBA脚本，降低所有标题级别

Sub DemoteAllTitles()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        Select Case para.Style.NameLocal
            Case "标题 1"
                para.Style = ActiveDocument.Styles("标题 2")
            Case "标题 2"
                para.Style = ActiveDocument.Styles("标题 3")
            Case "标题 3"
                para.Style = ActiveDocument.Styles("标题 4")
            Case "标题 4"
                para.Style = ActiveDocument.Styles("标题 5")
            Case "标题 5"
                para.Style = ActiveDocument.Styles("标题 6")
            Case "标题 6"
                para.Style = ActiveDocument.Styles("标题 7")
            Case "标题 7"
                para.Style = ActiveDocument.Styles("标题 8")
            Case "标题 8"
                para.Style = ActiveDocument.Styles("标题 9")
            '如果文档中还有更多标题级别，可继续添加Case语句
        End Select
    Next para
End Sub

以上两步执行完成后，就可以快速的完成文档合并工作了