Membuat Lembar Tes Pauli Dengan MS Word

1. Buka aplikasi MS Word anda.

2. Setelah MS Word terbuka silahkan anda tekan tombol alt + F11.

3. Kemudian pilih insert > module dan masukkan kode dibawah ini.

Sub PsikoNumGenerator()
Randomize Timer
theEnd = InputBox("Jumlah angka yang akan dibuat", "Jumlah Angka")
If Not IsNumeric(theEnd) Then Exit Sub
If Int(theEnd) = 0 Then Exit Sub
For i = 1 To theEnd
theText = theText & vbTab & Int(Rnd(i) * 10)
Next
Selection.TypeText Text:=theText
End Sub

4. Kembali ke MS Word anda dan tekan tombol alt + F8 kemudian pilih run.

5. Masukkan angka sesuai dengan keinginan anda. Disini saya contohkan 2000. Klik OK.

6. Akhirnya selesai juga dan hasilnya akan seperti ini. Oh ya ukuran kertasnya silahkan diatur sendiri, disini saya menggunakan kertas F4.

Selamat mencoba, semoga bermanfaat.