코드로 520개 보내기 사랑해요

블로그 주소

Dim WshShell  '      '
Set WshShell=WScript.CreateObject("WScript.Shell")   '      '
'           ，eg:   test ，      activate   test   '
WshShell.appactivate("test")
'  520   '
for i=1 to 520
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
'      +   ，        '
Word.Selection.Text =i&"   "
Word.Selection.Copy 
Word.Quit False
WshShell.sendkeys "^v" '  Ctrl + v  '
WScript.Sleep 600
WshShell.SendKeys "{ENTER}"  '     '
WScript.Sleep 600
next