Word/Notepad SaveAs

[KenNichols]

Is there a way to do this through Notepad?

Send($text) is way to slow and not everyone has MS Word.

CODE

#include <Word.au3>

$oWordApp = _WordCreate("",0,0);<--Not Visible

$oDoc = _WordDocGetCollection ($oWordApp, 0)

$oDoc.Range.Text = "This is some text to insert."

_WordDocSaveAs ($oDoc, @ScriptDir & "\Test.doc")

_WordQuit ($oWordApp)

[muncherw]

$NewFile = FileOpen(@DesktopDir & "\KenNichols.txt", 9)
FileWriteLine($NewFile, "AutoIT is chock full of vitamin C!")
FileClose($NewFile)

[Skruge]

FileWrite(@ScriptDir & "\Test.txt", "This is some text to insert.")

[KenNichols]

Thanks!