提升Word效率：自定义宏调整文档格式

Sub 文档规范格式调整宏()
    Dim st As Section
    
    Selection.WholeStory
    
    '清理所有分节分栏分页符
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^b"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^n"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    '未知
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    
    '页眉页脚字号间距
    For Each st In ActiveDocument.Sections
        st.Headers(wdHeaderFooterPrimary).Range.Font.Size = "9"
        st.Footers(wdHeaderFooterPrimary).Range.Font.Size = "9"
        st.Headers(wdHeaderFooterPrimary).Range.Font.Name = "Times new roman"
        st.Footers(wdHeaderFooterPrimary).Range.Font.Name = "Times new roman"
        With st.Headers(wdHeaderFooterPrimary).Range.ParagraphFormat
            '清底部线
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
            
            '左缩进
            .LeftIndent = CentimetersToPoints(0)
            '右缩进
            .RightIndent = CentimetersToPoints(0)
            '段前距（以磅为单位）
            .SpaceBefore = 0
            '自动段前距
            .SpaceBeforeAuto = False
            '段后距（以磅为单位）
            .SpaceAfter = 0
            '自动段后距
            .SpaceAfterAuto = False