#include <Word.au3>
;Так можно создать новый документ
Local $oWord = _Word_Create()
Local $oDoc = _Word_DocAdd($oWord)
Local $oRange = _Word_DocRangeSet($oDoc, -1)
$oRange.Text = "Это какой-нибудь текст ! "
_Word_DocSaveAs($oDoc, @ScriptDir & "\Test.doc")
_Word_Quit($oWord)
MsgBox(0, "", "Документ создан !")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Так - открыть уже созданный
Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, @ScriptDir & "\Test.doc")
Local $sText = $oDoc .Range.Text
_Word_Quit($oWord)
MsgBox(0, "Документ прочитан !", $sText)