求大佬给我做一个wps的宏~~~

w5212302 5月前 81

我们单位之前的老版题库有一个宏是可以做题练习的,前两天更新了题库,希望大佬可以帮忙做个新的宏   新版题库和老版的题都打包好了   老版题库可以看宏的效果 希望大佬可以帮我把新版题库也做成老版题库那个样的~~~万分感谢下载地址:   https://pan.baidu.com/s/1MKrX49MdVTf4JQCb5H5e2A
最新回复 (5)
  • good-idea 5月前
    引用 2
    网盘是假的,没密码
  • 楼主 w5212302 5月前
    引用 3
    链接: https://pan.baidu.com/s/1tEsq4g8xVWrt9-Llw7VMbA 提取码: gdq1
  • qqweite 5月前
    引用 4
    代码看起来不是很复杂的样子
  • 挖隧道 5月前
    引用 5
    这个是可以模拟手写的文章层次不齐的感觉,在图片中的(FontName(1) = "字魂94号-豆芽体")中可以把电脑里拥有的字体名称粘贴进去就可以使用了Sub 手写体()
    '
    ' 手写体 宏
    '
    '    Dim R_Character As Range    Dim FontSize(5)
        ' 字体大小在5个值之间进行波动,可以改写
        FontSize(1) = "13"
        FontSize(2) = "13.5"
        FontSize(3) = "12"
        FontSize(4) = "11.5"
        FontSize(5) = "12.5"    Dim FontName(3)
        '字体名称可在字体之间进行波动,可改写,但需要保证系统拥有下列字体
        FontName(1) = "字魂94号-豆芽体"
       
        Dim ParagraphSpace(5)
        '行间距 在一定以下值中均等分布,可改写
        ParagraphSpace(1) = "6"
        ParagraphSpace(2) = "7"
        ParagraphSpace(3) = "9"
        ParagraphSpace(4) = "7"
        ParagraphSpace(5) = "11"    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 = TrueEnd Sub
  • 楼主 w5212302 5月前
    引用 6
    挖隧道 发表于 2020-6-6 11:01
    这个是可以模拟手写的文章层次不齐的感觉,在图片中的(FontName(1) = "字魂94号-豆芽体")中可以把电脑里 ...

    感谢大佬 有点看不懂- - ....   求各位大佬改完发下邮箱吧  马上就考试了急用   252703881@qq.com
  • 游客
    7
返回