- 平時我們往往需要用Word打字,但是有時候會出現我們不得不上交手寫的版本的情況,不管是掃描也好,抑或是列印出來的紙質版也罷,正是那種不太符合當下時代的“送出手寫版”的要求,讓我們不得不想出一個行之有效的方法,讓我們能夠在電腦上打完之後就直接做成手寫體,像是跟純手寫的一樣。
- 前提是,你得有Microsoft Word軟體用于打字,這裡我用的是2010版本。
- 當你的稿件完成之後,點選宏并建立宏,并在建立的宏中,輸入如下代碼:
Sub 字型修改()
'
' 字型修改 宏
'
Dim R_Character As Range
Dim FontSize(5)
' 字型大小在5個值之間進行波動,可以改寫
FontSize(1) = "11"
FontSize(2) = "11.5"
FontSize(3) = "10"
FontSize(4) = "10.5"
FontSize(5) = "10"
Dim FontName(3)
'字型名稱在三種字型之間進行波動,可改寫,但需要保證系統擁有下列字型
FontName(1) = "liguofu"
FontName(2) = "陳靜的字完整版"
FontName(3) = "萌妹子體"
Dim ParagraphSpace(5)
'行間距 在一定以下值中均等分布,可改寫
ParagraphSpace(1) = "11"
ParagraphSpace(2) = "12"
ParagraphSpace(3) = "10"
ParagraphSpace(4) = "10"
ParagraphSpace(5) = "12"
Dim FontPosition
FontPosition = 2
'不懂原理的話,不建議修改下列代碼
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 * FontPosition) + 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
- 當然,你得有上述代碼中所提及的“李國夫字型”、“萌妹子體”和“陳靜字型”,考慮到版權問題,我就不在此做出分享,網上可以自己搜一搜,可以用别的手寫體,這個算是我看到的比較不錯的三個,比較像手寫體,其它的也各有特色,網上類似的字型很多,隻要在系統中安裝之後,将代碼中的字型名稱改一下即可,非常簡便。
- 最後就再次點選“宏”,并找到我們剛剛所建立的宏,點選運作,即可看到正片文章都已經變成了手寫體了。
- 代碼非常簡單,仔細閱讀就知道是用了随機的方式,在此不再贅述,附上最終效果。