1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

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) = "liguofu"

  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