; *******************************************************
; Пример 1 - Create a word window, open a document,
;				then read all available document properties by index
; *******************************************************

#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
$oDoc = _WordDocGetCollection ($oWordApp, 0)
For $i = 1 To 30
	ConsoleWrite("Property Index " & $i & " - " & _WordDocPropertyGet ($oDoc, $i) & @CR)
Next

; *******************************************************
; Пример 2 - Create a word window, open a document,
;				then read the title, subject, and author properties by name.
; *******************************************************

#include <Word.au3>
$oWordApp = _WordCreate (@ScriptDir & "\Test.doc")
$oDoc = _WordDocGetCollection ($oWordApp, 0)
ConsoleWrite("Title - " & _WordDocPropertyGet ($oDoc, "Title") & @CRLF)
ConsoleWrite("Subject - " & _WordDocPropertyGet ($oDoc, "Subject") & @CRLF)
ConsoleWrite("Author - " & _WordDocPropertyGet ($oDoc, "Author") & @CRLF)