岩土工程学报word排版VBA编程

 Sub JRMGE_Change()

  ' 岩土工程学报论文格式修改
  
    Dim doc As Document
    Set doc = ActiveDocument
    Dim lineHeight As Single
    
             
    ' 修改标题样式
    With doc.Styles("标题")
        .Font.Size = 22
        .Font.Bold = True
        .Font.Name = "黑体"
        .Font.Name = "Times New Roman"
                
        lineHeight = .Font.Size * 1.2
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
        .ParagraphFormat.SpaceBefore = lineHeight * 3
        .ParagraphFormat.SpaceAfter = lineHeight
        .ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
        .ParagraphFormat.LineSpacing = 18
    End With
    
    ' 修改摘要内容样式
    With doc.Styles("摘要内容")
        .Font.Size = 9
        .Font.Bold = False
        .Font.Name = "宋体"
        .Font.Name = "Times New Roman"
        
        .ParagraphFormat.Alignment = wdAlignParagraphJustify
        .ParagraphFormat.LeftIndent = CentimetersToPoints(0.84)
        .ParagraphFormat.RightIndent = Centim