Here maybe :

break on cls


;create your document array here !


global $Documents[1]
$Documents[0] = "C:\LONGLINED PATHSTATEMENT ADDED HERE IN ORDER TO TEST WORDWRAP"  + "\Data\Scripts\KIXtart\Kixtart2001Release Candidates\KiX20 01.rc3\kix2001.doc"
$Documents[1] = "C:\Data\Scripts\KIXtart\Kixtart 2001 beta\kix2001\kix01.400b2\KIX2001.DOC"


;end of Documents Array creation


global $Words[ubound($Documents)]



$wd = createobject("word.application")
if @error = 0
    for $i = 0 to ubound($Documents)
        $ = $wd.Documents.Open($Documents[$i])
        $Words[$i] = $wd.ActiveDocument.Words.Count
        $ = $wd.Documents.Close($Documents[$i])
    next
    $bye = $wd.quit
else
    'unable to create Word object : ' + @error + ' - ' + @serror
    get $k exit
endif


for $i = 0 to ubound($Documents)
    $Documents[$i] ?
    " contains " + $Words[$i] + " Words" ? ?
next

get $

Wordwrap ON !

[ 31. January 2003, 10:37: Message edited by: jpols ]
_________________________