<META NAME="wsoptions" CONTENT="web-object,no-content-type">
<TITLE>MS Word with WebSpeed</TITLE>
<SCRIPT LANGUAGE="Speedscript">
define variable cDocument as character no-undo.
define variable rLine as raw no-undo.
define stream sIn.
output-content-type( "application/msword":U ).
cDocument = "C:\word.doc".
input stream sIn from value(cDocument) binary no-echo no-convert no-map.
assign length(rLine) = 1024.
repeat:
import stream sIn unformatted rLine.
put {&WEBSTREAM} control rLine.
end.
length(rLine) = 0.
input stream sIn close.
</SCRIPT>