Word中公文标题设置（宏代码）

Sub 公文标题()

'

' 公文标题 宏

' 方正小标宋简体 二号 33

'

    Selection.Font.Name = "方正小标宋简体"

    Selection.Font.Size = 22

    With Selection.ParagraphFormat

        .LeftIndent = CentimetersToPoints(0)

        .RightIndent = CentimetersToPoints(0)

        .SpaceBefore = 0

        .SpaceBeforeAuto = False

        .SpaceAfter = 0

        .SpaceAfterAuto = False

        .LineSpacingRule = wdLineSpaceExactly

        .LineSpacing = 33

        .Alignment = wdAlignParagraphJustify

        .WidowControl = False

        .KeepWithNext = False

        .KeepTogether = False

        .PageBreakBefore = False

        .NoLineNumber = False

        .Hyphenation = True

        .FirstLineIndent = CentimetersToPoints(0)

        .OutlineLevel = wdOutlineLevelBodyText

        .CharacterUnitLeftIndent = 0

        .CharacterUnitRightIndent = 0

        .CharacterUnitFirstLineIndent = 0

        .LineUnitBefore = 0

        .LineUnitAfter = 0

        .MirrorIndents = False

        .TextboxTightWrap = wdTightNone

        .CollapsedByDefault = False

        .AutoAdjustRightIndent = True

        .DisableLineHeightGrid = False

        .FarEastLineBreakControl = True

        .WordWrap = True

        .HangingPunctuation = True

        .HalfWidthPunctuationOnTopOfLine = False

        .AddSpaceBetweenFarEastAndAlpha = True

        .AddSpaceBetweenFarEastAndDigit = True

        .BaseLineAlignment = wdBaselineAlignAuto

    End With

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Sub