公文标题排版（样式修改）

最新推荐文章于 2024-12-16 20:46:56 发布

温暖如冰

最新推荐文章于 2024-12-16 20:46:56 发布

阅读量2.1k

点赞数

分类专栏：笔记

本文链接：https://blog.csdn.net/weixin_44090668/article/details/115436272

版权

笔记专栏收录该内容

3 篇文章

订阅专栏

公文标题的排版，先设置一个样式，我选择将word内置的“标题”样式进行修改。代码如下：

Sub 标题一()
    '标题一：黑体 三号字
    With ActiveDocument.Styles("标题").Font
        .NameFarEast = "黑体"
        '西文字体
             .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = "Times New Roman"
        .Size = 16
    End With
    With ActiveDocument.Styles("标题").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 28.8
        .CharacterUnitFirstLineIndent = 2
        .CharacterUnitRightIndent = 0
        .AutoAdjustRightIndent = True
     .Alignment = wdAlignParagraphLeft '左对齐
     '段前短后0磅
             .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
    End With
    ActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = False
    With ActiveDocument.Styles("标题")
        .AutomaticallyUpdate = False
        .BaseStyle = "正文"
        .NextParagraphStyle = "标题"
    End With
End Sub
    
    Sub 标题二()
        '标题二：楷体三号字
        With ActiveDocument.Styles("标题").Font
            .NameFarEast = "楷体"
                 .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = "Times New Roman"
            .Size = 16
        End With
        With ActiveDocument.Styles("标题").ParagraphFormat
           .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 28.8
        .CharacterUnitFirstLineIndent = 2
        .CharacterUnitRightIndent = 0
        .AutoAdjustRightIndent = True
        .Alignment = wdAlignParagraphLeft '左对齐
     '段前短后0磅
             .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        End With
        ActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = False
        With ActiveDocument.Styles("标题")
            .AutomaticallyUpdate = False
            .BaseStyle = "正文"
            .NextParagraphStyle = "标题"
        End With
    End Sub
Sub 标题三()
    '标题三：仿宋三号
    With ActiveDocument.Styles("标题").Font
        .NameFarEast = "仿宋_GB2312"
             .NameAscii = "Times New Roman"
        .NameOther = "Times New Roman"
        .Name = "Times New Roman"
        .Size = 16
    End With
    With ActiveDocument.Styles("标题").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 28.8
        .CharacterUnitFirstLineIndent = 2
        .CharacterUnitRightIndent = 0
        .AutoAdjustRightIndent = True
        .Alignment = wdAlignParagraphLeft '左对齐
     '段前短后0磅
             .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
    End With
    ActiveDocument.Styles("标题").NoSpaceBetweenParagraphsOfSameStyle = False
    With ActiveDocument.Styles("标题")
        .AutomaticallyUpdate = False
        .BaseStyle = "正文"
        .NextParagraphStyle = "标题"
    End With
End Sub