scan append general WordDoc from (myTable.MyPath) endscan-If you want an RTF or HTML version :
#define wdFormatRTF 6 oWord = createobject('Word.Application') with oWord scan .Documents.Open(myTable.MyPath) .Activedocument.SaveAs(ForceExt(myTable.MyPath,'RTF'),wdFormatRTF) .ActiveDocument.Close(-1) append memo mytable.myRTF from (ForceExt(myTable.MyPath,'RTF')) endscan .quit endwithFor HTML if wdFormatHTML=8 is not defined (ie:word97) you can use fileconverters to find it :
for each oConverter in oWord.Fileconverters if oConverter.ClassName = 'HTML' wdFormatHTML = oConverter.SaveFormat endif endfor-If you want only pure text content :
oWord = createobject('Word.Application') with oWord scan .Documents.Open(myTable.MyPath) .ActiveDocument.Content.Select .Selection.Copy .ActiveDocument.Close(0) replace mytable.myDocContent with _cliptext endscan .quit endwithCetin