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

w5212302

我们单位之前的老版题库有一个宏是可以做题练习的，前两天更新了题库，希望大佬可以帮忙做个新的宏   新版题库和老版的题都打包好了   老版题库可以看宏的效果 希望大佬可以帮我把新版题库也做成老版题库那个样的~~~万分感谢









下载地址：   https://pan.baidu.com/s/1MKrX49MdVTf4JQCb5H5e2A

good-idea

网盘是假的，没密码

w5212302

链接: https://pan.baidu.com/s/1tEsq4g8xVWrt9-Llw7VMbA 提取码: gdq1

qqweite

代码看起来不是很复杂的样子

挖隧道

这个是可以模拟手写的文章层次不齐的感觉，在图片中的（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 = True




End Sub

w5212302

挖隧道 发表于 2020-6-6 11:01
这个是可以模拟手写的文章层次不齐的感觉，在图片中的（FontName(1) = "字魂94号-豆芽体"）中可以把电脑里 ...

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

leoparddi

你打开 老版题库，下面好多sheet页是隐藏的，有单选、多选、判断，你把新版的题对应着粘到老版的sheet页中就可以了

郭嘉的不要抢

人家热心回复，这种太监贴真烦人。

Madme

利用就是完事啦，他管你热不热心哦