n=adir(aFiles,’*.doc’)
* сортировка и т.д.
* еще неплохо бы полный путь добавить 
x = CreateObject(‘Word.Application’)
y = x.Documents.Add
for i= 1  to n
    z = x.Documents.Open(aFiles[i, 1 ])
    z.Range.CopyAsPicture
    z.Close
    if y.Paragraphs.Count >  1 
         y.Paragraphs.Add
    endif
    y.Paragraphs.Last.Range.Paste
endfor
_cliptext=’’
x.Visible = .T.
wait window
x.Quit