公文的格式设置

nkgsm

经常撰写公文的同事一定对公文的格式设置比较清楚
标准公文格式如下
页面设置：页边距：上边距离37mm，下边是34mm，左边距离28mm，右边是26mm。（下边和右边以版心而定，版心宽156mm，高225mm）
文档网格：版心是22行，每行28个字，三号仿宋体。
标题用二号华文中宋体，居中排印。
以上格式用手动设置是非常繁琐的，所以，如果是新建文档进行撰写，则我设计了模板（见附件），第一个段落标记就是标题的格式，下面的段落标记就是正文的格式，只要输入文字即可，省却了许多格式设置的步骤。
但是如果是别人的文章等不是自己按模板撰写的文章，如果粘贴到模板就比较费时，鉴于此，我设计了如下代码，可以一键搞定（可以用CTRL+SHIFT+G快捷键，这个G就是公文的第一个字母，为了避免冲突，可以将搜狗输入法的管理器快捷键CTRL+SHIFT+G改成CTRL+SHIFT+L这个L就是管理的理第一个字母）操作不需要选定文档，只要光标在文档中即可。
在WORD的Normal处插入模块，将代码粘贴到新的模块即可（粘贴代码前，先把安全软件关闭，否则无法保存）。
Sub 标准公文格式()
    With ActiveDocument.Styles(wdStyleNormal).Font
        .NameFarEast = "仿宋_GB2312"
        .Size = 16
    End With
    With ActiveDocument.PageSetup
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(3.7)
        .BottomMargin = CentimetersToPoints(3.4)
        .LeftMargin = CentimetersToPoints(2.8)
        .RightMargin = CentimetersToPoints(2.6)
        .SectionStart = wdSectionNewPage
        .CharsLine = 28
        .LinesPage = 22
    End With
    Selection.WholeStory
    With Selection.ParagraphFormat
         .CharacterUnitFirstLineIndent = 2
    End With
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    With Selection.ParagraphFormat
        .Reset 'CTR+Q '
    End With
    Selection.Font.Name = "华文中宋"
    Selection.Font.Size = 22
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub