Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.AppActivate "Wordpad" WshShell.SendKeys "^a" WshShell.SendKeys "^x" WshShell.AppActivate "Wordpad"