讓Word打出來的稿件更像是純手寫的

1. 平時我們往往需要用Word打字，但是有時候會出現我們不得不上交手寫的版本的情況，不管是掃描也好，抑或是打印出來的紙質版也罷，正是那種不太符合當下時代的“提交手寫版”的要求，讓我們不得不想出一個行之有效的方法，讓我們能夠在電腦上打完之后就直接做成手寫體，像是跟純手寫的一樣。

2. 前提是，你得有Microsoft Word軟件用於打字，這里我用的是2010版本。

3. 當你的稿件完成之后，點擊宏並創建宏，並在新建的宏中，輸入如下代碼：

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

4. 當然，你得有上述代碼中所提及的“李國夫字體”、“萌妹子體”和“陳靜字體”，考慮到版權問題，我就不在此做出分享，網上可以自己搜一搜，可以用別的手寫體，這個算是我看到的比較不錯的三個，比較像手寫體，其它的也各有特色，網上類似的字體很多，只要在系統中安裝之后，將代碼中的字體名稱改一下即可，非常簡便。

5. 最后就再次點擊“宏”，並找到我們剛剛所創建的宏，點擊運行，即可看到正片文章都已經變成了手寫體了。
   

6. 代碼非常簡單，仔細閱讀就知道是用了隨機的方式，在此不再贅述，附上最終效果。

作者：艾孜爾江