Word字体修改

                
                
                    
                
                                        ——Word VBA 脚本 罚抄专用
Sub 字体修改()
'
' 字体修改 宏
'
    Dim R_Character As Range

    Dim FontSize(5)
    ' 字体大小在5个值之间进行波动,可以改写
    FontSize(1) = "21"
    FontSize(2) = "21.5"
    FontSize(3) = "22"
    FontSize(4) = "22.5"
    FontSize(5) = "23"

    Dim FontName(3)
    '字体名称在三种字体之间进行波动,可改写,但需要保证系统拥有下列字体
    FontName(1) = "楷体"
    FontName(2) = "手写体"
    FontName(3) = "宋体"

    Dim ParagraphSpace(5)
    '行间距 在一定以下值中均等分布,可改写
    ParagraphSpace(1) = "12"
    ParagraphSpace(2) = "13"
    ParagraphSpace(3) = "20"
    ParagraphSpace(4) = "7"
    ParagraphSpace(5) = "12"

    '不懂原理的话,不建议修改下列代码

    For Each R_Character In ActiveDocument.Characters

        VBA.Randomize

        R_Character.Font.Name = FontName(Int(VBA.Rnd * 3) + 1)

        R_Character.Font.Size = FontSize(Int(VBA.Rnd * 5) + 1)

        R_Character.Font.Position = Int(VBA.Rnd * 3) + 1

        R_Character.Font.Spacing = 0

    Next

    Application.ScreenUpdating = True

    For Each Cur_Paragraph In ActiveDocument.Paragraphs

        Cur_Paragraph.LineSpacing = ParagraphSpace(Int(VBA.Rnd * 5) + 1)

    Next
        Application.ScreenUpdating = True

End Sub
点赞

发表评论

昵称和uid可以选填一个,填邮箱必填(留言回复后将会发邮件给你)
tips:输入uid可以快速获得你的昵称和头像