<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>

1