如何创建word文件
creatdoc.asp《星河影子运动》文字档案的制作
<
dotlocation ='servernamedirectory hetemplate。点
introwcount =请求。形式（行）的初始化线数。
%>
<身体语言=VBｓｃｒｉｐｔ指针creatdoc document.theform，
introwcount >
-----------------------------------------------------------------------------------------------------------------------------------调用body标签中载，creatdoc VB脚本调用子程序，3参数传递给它：网页表单的内容（隐藏），Word模板文件的位置，接收来自输入表单域中的行数。阅读所有的输入形式，然后调用creatdoc加载页时
<
ItemCount = 0设置字段计数为0。
对于每个项目的要求。
ItemCount = ItemCount + 1%>周期..下。
值
>
>
-------------------------------------------------------------------------------------------------------------------------------------开始创建一个Word文件对象。在Internet Explorer版本4中，为Low或定制的浏览器安全设置
<
集objworddoc = CreateObject（字。文件）
objworddoc.application.documents.add模板，假
objworddoc。应用。可见=真
%>
对-------------------------------------------------------------------------------------------------------------------------------------维数组包含在同一个Web窗体和行数的调整。y轴作为4个常量，这是输出文件所需的列数，x轴包含从接收到的表单中的行数。
-------------------------------------------------------------------------------------------------------------------------------------开始检查所有的表行。循环在网络中形成所有输入域，收集每个表单域名及其对应值。逐一检查并将其放入相应的序列元素中。然后，我们使用不确定编码案例选择。
<
对于intcount = 0 frmdata.fieldcount.value
strokay =Y
strsearch = frmdata.elements（intcount）。名字的加载形式的域名。
strvalue = frmdata.elements（intcount）。价值负荷的表单域的值。
strposition =仪器（1，strsearch，intstringlen = strposition-1_ ）
如果intstrlen > 0
strleft =左（strsearch，intstringlen）
strright =右（strsearch，（Len（strsearch）- Len（strleft）- 1））
选择的案例strleft'select命令决定在表单域的列。
案例SKUintarrayy = 0
案例描述intarrayy = 1
案例价格intarrayy = 2
案例中量intarrayy = 3
最后选择
intarrayx = strright
如果strokay 然后
阵列（intarrayy，intarrayx）= strvalue
最后如果
最后如果
下一个
创建一个文件-------------------------------------------------------------------------------------------------------------------------------------开始>
<
集rngcurrent = objworddoc。应用。activedocument。内容，激活文件，变rngcurrent Word文件对象的范围，这是防止用户打开另一个文件。
集tabcurrent = objworddoc.application.activedocument.tables.add
rngcurrent，intnumrows，4）的指定表格的位置（rngcurrent）和数量的行和列的大小来确定。------------------------------------------------------------------------------------------------------------------------------------ %>
对于表加载数据。< %
J = 1 inttablerows
第一行是第一行的行（tabrow = 1），循环线。插入回{ CHR（10）在每一行的结尾产生行间空间和行计数器增加。
objworddoc.application.activedocument.tables（1），Rows（tabrow）。边界。使= false
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（1）。range.insertafter
阵列（1，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（2）。range.insertafter
阵列（2，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（3）。range.insertafter
formatcurrency（阵列（3，j））
输出美国的美元价值与formatcurrency确保$符号，逗号的使用，和小数places.objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4）。Range.InsertAfter。
阵列（4，j）
objworddoc.application.activedocument.tables（1），Rows（tabrow）。细胞（4）。range.insertafter
CHR（10）
objworddoc.applicatoin.activedocument.tables（1），Rows（tabrow）细胞（3）。
范围。paragraphformat对齐= 2。
栏数设置在paragraphformat。对齐= 2，以正确调整美元数。
tabrow = tabrow + 1
下一个
------------------------------------------------------------------------------------------------------------------------------------ %>
指定模板位置，结束子程序。
<
ObjWordDoc.Application.ActiveDocument.Paragraph.Add.Range。
InsertAfter（谢谢你在极致有限，购物，请再来！）
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
objworddoc.application.activedocument.paragraph.add.range.insertafter（问候）
objworddoc.application.activedocument.paragraph.add.range.insertafter（）
ObjWordDoc.Application.ActiveDocument.Paragraph.Add.Range。
InsertAfter（达丽尔B. morticum ）
ObjWordDoc.Application.ActiveDocument.Paragraph.Add.Range。
InsertAfter（销售人员）
端子
------------------------------------------------------------------------------------------------------------------------------------ %>