How can I get this to work is MS word 2007?

Im new to scripting I tried using the macro recorder, but to no avail. I did manage to write a hello world script though. Any help would be appreciated. This is for my direct mail campaigns to make my own hand written font look more like real hand writing. Thanks for your time.

Set objWord = CreateObject("Word.Application") objWord.Visible = True

Set objDoc = objWord.Documents.Open("C:\Scripts\Test.doc")

Set objRandom = CreateObject("System.Random")

intLow = 1 intHigh = 5

Set objRange = objDoc.Range() Set colCharacters = objRange.Characters

For Each strCharacter in colCharacters intRandom = objRandom.Next_2(intLow,intHigh)

Select Case intRandom
    Case 1 strCharacter.Font.Name = "Arial"
    Case 2 strCharacter.Font.Name = "Times New Roman"
    Case 3 strCharacter.Font.Name = "Courier New"
    Case 4 strCharacter.Font.Name = "Forte"
End Select

Next

Woah buddy, this is for ROBLOX coding errors. Not this stuff.

This is for Roblox LUA script. And no, there is no other spot on the website for other scripts.

Roblox lua, this is off topic.