#Note This first line is mandatory
[void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms")
# Start WinWord (if not already running)
Start-Process -FilePath "notepad.exe"
# Wait for WinWord to open and become active
Start-Sleep -Seconds 3
# Activate the WinWord window (adjust the title if necessary)
$wshell = New-Object -ComObject wscript.shell
#$wshell.AppActivate("Document1 - Word") # Or the actual document title
Start-Sleep -Seconds 1
for ($k = 1; $k -le 25; $k++) {
for ($i = 1; $i -le 55; $i++) {
$j = [char](65 + $i)
(New-Object -ComObject "wscript.shell").SendKeys("$j")
}
(New-Object -ComObject "wscript.shell").SendKeys("{Enter}")
}
