>Finally I found just a few minutes after I send the first message. Here is the code
>
>if type('oWord') == 'O'
> for i=1 to oword.Documents.Count
> ? oword.Documents(i).Name
> ?? oword.Documents(i).saved
> endfor
>ENDIF
>
>Thanks

I think your original code would work too with a slight change :

if type('m.oWord') == 'O' and !isnull(m.oWord)
  for each oDoc in m.oWord.Documents
       ? m.oDoc.Name, m.oDoc.Saved
       oDoc = .null.
  endfor
endif

Cetin