定向悬赏结算 to blfiag

blfiag

收到，谢谢

—__Sunflower

Sub ModifyWordDocuments()
    Dim MyFolder As String
    Dim MyFile As String
    Dim MyDoc As Document
   
    '设置文件夹路径，修改为你的文件夹路径
    MyFolder = "C:\MyDocuments"
   
    '检查文件夹是否存在
    If Dir(MyFolder, vbDirectory) = "" Then
        MsgBox "文件夹不存在，请修改文件夹路径"
        Exit Sub
    End If
   
    '打开每个Word文档并修改格式
    MyFile = Dir(MyFolder & "\*.docx")
    While MyFile <> ""
        Set MyDoc = Documents.Open(MyFolder & "\" & MyFile)
        Call ModifyPageFormat(MyDoc)
        Call ModifyFontFormat(MyDoc)
        MyDoc.Save
        MyDoc.Close
        MyFile = Dir()
    Wend
   
    MsgBox "修改完成"
End Sub

Sub ModifyPageFormat(MyDoc As Document)
    With MyDoc.PageSetup
        .TopMargin = CentimetersToPoints(3.7)
        .BottomMargin = CentimetersToPoints(3.5)
        .LeftMargin = CentimetersToPoints(2.8)
        .RightMargin = CentimetersToPoints(2.6)
        .Orientation = wdOrientPortrait
        .PaperSize = wdPaperA4
        .LineNumbering.Active = True
        .LineNumbering.RestartMode = wdRestartContinuous
        .LineNumbering.CountBy = 22
        .LineNumbering.StartingNumber = 1
    End With
End Sub

Sub ModifyFontFormat(MyDoc As Document)
    Dim MyRange As Range
   
    '设置标题格式
    Set MyRange = MyDoc.Paragraphs(1).Range
    With MyRange.Font
        .Size = 72
        .Name = "方正小楷"
        '.Name = "宋体" '如果要使用宋体简体，取消注释此行，注释掉上一行
        .Bold = True
        .Scaling = 33
        .Spacing = 0.3
    End With
    MyRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
   
    '设置第二行格式
    Set MyRange = MyDoc.Paragraphs(2).Range
    With MyRange.Font
        .Size = 3
        .Name = "仿宋 GB2312"
        .Bold = False
    End With
    MyRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
   
    '设置正文标题格式
    For i = 4 To 6
        Set MyRange = MyDoc.Paragraphs(i).Range
        With MyRange.Font
            .Size = 2
            .Name = "方正小标宋简体"
            .Bold = False
        End With
        MyRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next i
   
    '设置正文格式
    Set MyRange = MyDoc.Content
    With MyRange.Font
        .Size = 3
        .Name = "仿宋 GB2312"
        .Bold = False
    End With
    MyRange.ParagraphFormat.LeftIndent = CentimetersToPoints(0.42)
    MyRange.ParagraphFormat.SpaceBefore = 0
    MyRange.ParagraphFormat.SpaceAfter = 0
    MyRange.ParagraphFormat.LineSpacingRule = wdLineSpaceExactly
    MyRange.ParagraphFormat.Line

—__Sunflower

YTCMC00 发表于 2023-3-5 07:59
大神 我的 CB 不够了  等我 攒点 再给你 补偿哈   

感谢大神无私的帮助   只要帮助 我这里就给回报   ...

够了就这点就够了