Set objShell = WScript.CreateObject("WScript.Shell")

objShell.run "notepad c:\oui.txt"
wscript.sleep 500
objShell.sendkeys "^f"
'wscript.sleep 150
'objShell.sendkeys "sepulveda"
'wscript.sleep 200
'objShell.sendkeys "{ENTER}"
'wscript.sleep 50
'objShell.sendkeys "{ESC}"
'wscript.sleep 50
'objShell.sendkeys "{PGDN}"

'objShell.sendkeys "UN"
'msgbox "he"
'msgbox "he"