自己对VBSCRIPT生成WORD的整合.....

最新推荐文章于 2013-10-31 17:38:33 发布
最新推荐文章于 2013-10-31 17:38:33 发布
阅读量2.1k 收藏 1
点赞数
CC 4.0 BY-SA版权
分类专栏： VB ASP HTML 文章标签： vbscript stylesheet processing function javascript button
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/yxtyxt3311/article/details/596242
这段代码展示了如何使用VBScript结合JavaScript创建一个Word文档，包含现场勘验检查笔录的相关信息，如日期、时间、地点等，并用表格展示详细数据。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<link rel="stylesheet" type="text/css" href="edit.css">
<title>保存为Word文档</title>
</HEAD>
<script language="javascript">
window.returnValue=0
</script>
<BODY>
<font color="#000080"><strong><div id="strHint" align="center">数据处理中,请等待...<br>
Data processing, please wait...</div></strong></font><font color="#0080C0">
<!--#include file="../inc/function.asp"-->
<%
set objcn = server.CreateObject("gdcom.database")
set rs = server.CreateObject("ADODB.Recordset")
set rs1 = server.CreateObject("ADODB.Recordset")
kch=trans(request.QueryString("kch"))
kch="5200000100002006020001"
strsql="select a.*,b.unitname as idTBDWBH,c.detail as idab1,d.detail as idtq,e.detail as idgx,f.detail as idfx,"
strsql=strsql&"g.detail as idXZSJ,h.detail as idXZCS,i.detail as idXZBW,j.detail as idXZDX,k.detail as idZAGJ,l.detail as idSDTD,m.username as idlrr,n.detail as idajxz "
strsql=strsql&"from xckcbc a,(select unitid,unitname from tblunit) b,"
strsql=strsql&"(select code,detail from zdb where kind='24') c,(select code,detail from zdb where kind='61') d,"
strsql=strsql&"(select code,detail from zdb where kind='91') e,(select code,detail from zdb where kind='90') f,"
strsql=strsql&"(select code,detail from zdb where kind='29') g,(select code,detail from zdb where kind='30') h,"
strsql=strsql&"(select code,detail from zdb where kind='30' and code like '23%') i,(select code,detail from zdb where kind='31') j,(select code,detail from zdb where kind='44') n,"
strsql=strsql&"(select code,detail from zdb where kind='33') k,(select code,detail from zdb where kind='35') l,(select userid,username from tbluser) m "
strsql=strsql&"where kch='"&kch&"' and a.tbdwbh=b.unitid(+) and a.ab1=c.code(+) and a.tq=d.code(+) "
strsql=strsql&"and a.gx=e.code(+) and a.fx=f.code(+) and a.XZSJ=g.code(+) and a.XZCS=h.code(+) and a.XZBW=i.code(+) "
strsql=strsql&"and a.XZDX=j.code(+) and a.ZAGJ=k.code(+) and a.SDTD=l.code(+) and a.lrr=m.userid(+) and a.ajxz=n.code(+)"

'strSQL="select unitname from tblunit where unitid='"&session("unitid")&"'"
set rs = objcn.RunSQLReturnRS(strSQL)
nian=left(right(rs("kch"),10),4)
xh=right(rs("kch"),6)
xxsj=cdate(rs("Sjtime"))
xxnian=year(xxsj)
xxyue=month(xxsj)
xxtian=day(xxsj)
xxshi=hour(xxsj)
xxfen=minute(xxsj)
KCSJ1=cdate(rs("KCSJ1"))
KCSJ1nian=year(KCSJ1)
KCSJ1yue=month(KCSJ1)
KCSJ1tian=day(KCSJ1)
KCSJ1shi=hour(KCSJ1)
KCSJ1fen=minute(KCSJ1)
KCSJ2=cdate(rs("KCSJ2"))
KCSJ2nian=year(KCSJ2)
KCSJ2yue=month(KCSJ2)
KCSJ2tian=day(KCSJ2)
KCSJ2shi=hour(KCSJ2)
KCSJ2fen=minute(KCSJ2)
kcjcqc=replace(rs("XCMS"),"<br>","""&chr(10)&""　　")
kcjcqc=replace(kcjcqc,"&nbsp;"," ")
kcxcfx=replace(rs("kcxcfx"),"<br>","""&chr(10)&""　　")
kcxcfx=replace(kcxcfx,"&nbsp;"," ")
kcshmbjss=replace(rs("kcshmbjss"),"<br>","""&chr(10)&""　　")
kcshmbjss=replace(kcshmbjss,"&nbsp;"," ")
zagc=replace(rs("ZAGCMSJYJ"),"<br>","""&chr(10)&""　　")
zagc=replace(zagc,"&nbsp;"," ")
zartd=replace(rs("kczartd"),"<br>","。""&chr(10)&""　　")
zartd=replace(zartd,"&nbsp;"," ")
kccbyjygj=replace(rs("kccbyjygj"),"<br>","""&chr(10)&""　　")
kccbyjygj=replace(kccbyjygj,"&nbsp;"," ")
VCHDESC=replace(rs("VCHDESC"),"<br>","""&chr(10)&""　　")
VCHDESC=replace(VCHDESC,"&nbsp;"," ")
FASJCZ=cdate(rs("FASJCZ"))
FASJCZnian=year(FASJCZ)
FASJCZyue=month(FASJCZ)
FASJCZtian=day(FASJCZ)
FASJCZshi=hour(FASJCZ)
FASJCZfen=minute(FASJCZ)
FASJZZ=cdate(rs("FASJZZ"))
FASJZZnian=year(FASJZZ)
FASJZZyue=month(FASJZZ)
FASJZZtian=day(FASJZZ)
FASJZZshi=hour(FASJZZ)
FASJZZfen=minute(FASJZZ)
zasj=FASJCZnian&"年"&FASJCZyue&"月"&FASJCZtian&"日"&FASJCZshi&"时"&FASJCZfen&"分至"
zasj=zasj&FASJzZnian&"年"&FASJzZyue&"月"&FASJzZtian&"日"&FASJzZshi&"时"&FASJzZfen&"分"


knxmtemp=rs("KCXM")&","&rs("fyxm")
knzwtemp=rs("KCzw")&","&rs("fyzw")
if trim(knxmtemp)<>"," then
knxm=split(knxmtemp,",")
knzw=split(knzwtemp,",")
execute "dim kndw("&ubound(knxm)&")"
for k=0 to ubound(knxm)
 if trim(knxm(k))<>"" then
  str="select b.unitname as dw from maninfo a,(select unitname,unitid from tblunit) b where a.name='"&knxm(k)&"' and a.deptid=b.unitid(+)"
  set rs1=objcn.RunSQLReturnRS(str)
  if not rs1.eof then
   kndw(k)=rs1("dw")
  end if
  rs1.close
 end if
next
end if
function xtod(rq)
 temp=len(trim(rq))
 xtod=""
 for i=1 to temp
  select case mid(rq,i,1)
  case "0"
   xtod=xtod&"○"
  case "1"
   xtod=xtod&"一"
  case "2"
   xtod=xtod&"二"
  case "3"
   xtod=xtod&"三"
  case "4"
   xtod=xtod&"四"
  case "5"
   xtod=xtod&"五"
  case "6"
   xtod=xtod&"六"
  case "7"
   xtod=xtod&"七"
  case "8"
   xtod=xtod&"八"
  case "9"
   xtod=xtod&"九"
  end select
 next
end function
tbrq=cdate(rs("TBSJ"))
tbrqnian=xtod(year(tbrq))
tbrqyue=xtod(month(tbrq))
tbrqtian=xtod(day(tbrq))
set rsk=server.CreateObject ("adodb.recordset")
strSQL1="SELECT A.autoid,A.sortno,A.subsortno,C.detail as mc,B.jlbh,"
strSQL1=strSQL1 & "A.exp1,A.exp2,A.exp3,A.exp4,A.exp5,A.exp6,A.LostDest,A.Guest,A.vchdesc,D.Detail AS tqff,B.Title"
strSQL1=strSQL1 & " FROM tblxchjwz A,xcpic B,ZDB C,ZDB D"
strSQL1=strSQL1 & " WHERE A.autoid=B.kch(+) AND A.chkid='" & kch & "'"
strSQL1=strSQL1 & " AND (A.sortno=C.kind(+) AND A.subsortno=C.Code(+))"
strSQL1=strSQL1 & " AND (A.GetDesc=D.Code(+)) AND D.kind(+)='58'"   '8.0.5
strSQL1=strSQL1 & " ORDER BY A.autoid"
'response.write(strsql1)
set rsk=objcn.runsqlreturnrs(strSQL1)
if rsk.recordcount>0 then
rskn=rsk.recordcount
execute "dim tb("&rskn&",6)"
else
rskn=0
end if
'rsk.movefirst
for l=1 to rskn
 tb(l,1)=l
 if not IsNull(rsk("mc")) then
  strsubsort=rsk("mc")
 else
  strsubsort=rsk("subsortno")
 end if
 tb(l,2)=strsubsort
 tb(l,3)=rsk("LostDest")
 tb(l,4)=rsk("tqff")
 tb(l,5)=rsk("exp6")
 tb(l,6)=rsk("Vchdesc")
 rsk.movenext
next
rsk.close
'response.Write("aa'")
%>


<script language="vbscript">
Dim wApp
Set wApp = CreateObject("Word.Application")
If Err.number > 0 Then
Alert "没法保存为Word文件,请正确安装Word"
else
wApp.visible = True
wApp.Documents.add
wApp.Selection.ParagraphFormat.LineSpacing = 30
With wApp.Selection
    .Font.Bold = True
    .ParagraphFormat.Alignment = 1
    .Font.Name = "宋体"
    .Font.Size = 18
End With
wApp.Selection.TypeText "现场勘验检查笔录"

wApp.Selection.TypeParagraph
With wApp.Selection
 .Font.Bold = False
    .ParagraphFormat.Alignment = 2
    .Font.Name = "仿宋_GB2312"
    .Font.Size = 16
End With

wApp.Selection.TypeText "黔公（刑）勘〔<%=nian%>〕<%=xh%>号"

wApp.Selection.TypeParagraph
wApp.Selection.TypeParagraph
With wApp.Selection
    .ParagraphFormat.Alignment = 0
End With
//wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints(0)
//wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints(1.2/2*2)

wApp.Selection.TypeText "　　<%=xxnian%>年<%=xxyue%>月<%=xxtian%>日<%=xxshi%>时<%=xxfen%>分<%=rs("Bjrq")%>接到<%=rs("Bjr")%>的<%=rs("Smbg")%>报告/指派：<%=rs("Sendr")%>。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　现场勘验检查于<%=kcsj1nian%>年<%=kcsj1yue%>月<%=kcsj1tian%>日<%=kcsj1shi%>时<%=kcsj1fen%>分开始，至<%=kcsj2nian%>年<%=kcsj2yue%>月<%=kcsj2tian%>日<%=kcsj2shi%>时<%=kcsj2fen%>分结束。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　现场地点：<%=rs("kcdd")%>。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　天气情况：温度<%=rs("QW")%>℃；相对湿度<%=rs("Xdsd")%>；风向<%=rs("idFX")%>；<%=rs("idTQ")%>。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　勘验检查前现场的条件：<%=rs("kctj")%>。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　现场勘验检查利用的光线：<%=rs("idgx")%>。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　现场勘验检查指挥由<%=rs("ZHXM")%>担任。"
wApp.Selection.TypeParagraph
wApp.Selection.TypeText "　　勘验检查情况：<%=kcjcqc%>"

 

 

 

wApp.Selection.TypeParagraph
With wApp.Selection
    .Font.Bold = True
    .ParagraphFormat.Alignment = 1
    .Font.Name = "宋体"
    .Font.Size = 18
End With
wApp.Selection.TypeText "现场勘验检查提取痕迹、物证登记表"
wApp.Selection.TypeParagraph
With wApp.Selection
 .Font.Bold = False
    .ParagraphFormat.Alignment = 0
    .Font.Name = "仿宋_GB2312"
    .Font.Size = 16
End With
<%if rskn=0 then%>
intNumrows=2
<%else%>
intNumrows=cint(<%=rskn%>)+1
<%end if%>

wApp.Selection.TypeParagraph
Set rngCurrent = wApp.Application.ActiveDocument.Paragraphs(14).Range
Set tabCurrent =  wApp.Application.ActiveDocument.Tables.Add(rngCurrent,intNumrows,6)
wApp.Application.ActiveDocument.Tables(1).Rows(1).Borders.Enable=True
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Width = 80
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(3).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(4).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(5).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(6).Width = 60
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.InsertAfter "序号"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.InsertAfter "名称"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(3).Range.InsertAfter "提取部位"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(3).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(4).Range.InsertAfter "提取方法"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(4).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(5).Range.InsertAfter "数量"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(5).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(6).Range.InsertAfter "提取人"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(6).Range.ParagraphFormat.alignment=1
<%if rskn=0 then%>
wApp.Application.ActiveDocument.Tables(1).Rows(2).Borders.Enable=True
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Width = 80
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(3).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(4).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(5).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(6).Width = 60
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(3).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(3).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(4).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(4).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(5).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(5).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(6).Range.InsertAfter " "
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(6).Range.ParagraphFormat.alignment=1
<%else
for i=1 to rskn
%>
j=cint(<%=(i+1)%>)
wApp.Application.ActiveDocument.Tables(1).Rows(j).Borders.Enable=True
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(1).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(2).Width = 80
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(3).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(4).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(5).Width = 50
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(6).Width = 60
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(1).Range.InsertAfter "<%=tb(i,1)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(2).Range.InsertAfter "<%=tb(i,2)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(2).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(3).Range.InsertAfter "<%=tb(i,3)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(3).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(4).Range.InsertAfter "<%=tb(i,4)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(4).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(5).Range.InsertAfter "<%=tb(i,5)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(5).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(6).Range.InsertAfter "<%=tb(i,6)%>"
wApp.Application.ActiveDocument.Tables(1).Rows(j).Cells(6).Range.ParagraphFormat.alignment=1
<%
next
end if
%>


With wApp.Application.ActiveDocument.Paragraphs.Add.Range

 .InsertAfter("　　现场勘验检查制图<%=rs("Kczt")%>张；照相<%=rs("Kczx")%>张；录像<%=rs("kclx")%>分钟；录音<%=rs("kcly")%>分钟。"&chr(10))
 .InsertAfter("　　现场勘验检查记录人员："&chr(10))
 .InsertAfter("笔录人：<%=rs("JLXM")%>"&chr(10))
 .InsertAfter("制图人：<%=rs("HTXM")%>"&chr(10))
 .InsertAfter("照相人：<%=rs("SYXM")%>"&chr(10))
 .InsertAfter("录像人：<%=rs("SYXM")%>"&chr(10))
 .InsertAfter("录音人：<%=rs("LYXM")%>"&chr(10))
 .InsertAfter("　　现场勘验检查人员："&chr(10))
<%
for i=0 to ubound(knxm)
if trim(knxm(i))<>"" then
%>
 .InsertAfter("单位：<%=kndw(i)%>；职务：<%=knzw(i)%>；本人签名：<%=knxm(i)%>"&chr(10))
<%
end if
next
%>
 .InsertAfter("　　现场勘验检查见证人："&chr(10))
 .InsertAfter("性别：<%=rs("jzrxb1")%>，年龄：<%=rs("jzrage1")%>岁，单位或住址：<%=rs("jzrdw1")%>，签名：<%=rs("jzrxm1")%>"&chr(10))
 .InsertAfter("性别：<%=rs("jzrxb2")%>，年龄：<%=rs("jzrage2")%>岁，单位或住址：<%=rs("jzrdw2")%>，签名：<%=rs("jzrxm2")%>"&chr(10))
 .InsertAfter("　　　　　　　　　　　　　　<%=tbrqnian%>年<%=tbrqyue%>月<%=tbrqtian%>日"&chr(10)) 
End With
end if
</script>
<script language="vbscript">
wApp.Documents.add
//wApp.Selection.ParagraphFormat.LineSpacing = 20
With wApp.Selection
    .Font.Bold = True
    .ParagraphFormat.Alignment = 1
    .Font.Name = "宋体"
    .Font.Size = 18
End With
wApp.Selection.TypeText "现场勘验检查情况分析报告"

wApp.Selection.TypeParagraph
With wApp.Selection
 .Font.Bold = False
 .ParagraphFormat.Alignment = 0
    .Font.Name = "宋体"
    .Font.Size = 12
End With

wApp.Selection.TypeText "接警编号：<%=rs("AJBH")%>　　勘查号：<%=rs("kch")%>"

wApp.Selection.TypeParagraph
Set rngCurrent = wApp.Application.ActiveDocument.Paragraphs(3).Range
Set tabCurrent =  wApp.Application.ActiveDocument.Tables.Add(rngCurrent,14,4)
for i=1 to 14
wApp.Application.ActiveDocument.Tables(1).Rows(i).Borders.Enable=True
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(1).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(2).Width = 115
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(3).Width = 100
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(4).Width = 115
wApp.Application.ActiveDocument.Tables(1).Rows(i).Height=30
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(1).VerticalAlignment = 1
wApp.Application.ActiveDocument.Tables(1).Rows(i).Cells(2).VerticalAlignment = 1
next
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.InsertAfter "现  场  分  析"&chr(10)&"依 据 的 资 料"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(1, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(1, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.InsertAfter "<%=kcxcfx%>"
wApp.Application.ActiveDocument.Tables(1).Rows(1).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.InsertAfter "侵害目标及损失"
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(2, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(2, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.InsertAfter "<%=kcshmbjss%>"
wApp.Application.ActiveDocument.Tables(1).Rows(2).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.InsertAfter "作  案  地  点"
wApp.Application.ActiveDocument.Tables(1).Rows(3).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(3, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(3, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.InsertAfter ""
wApp.Application.ActiveDocument.Tables(1).Rows(3).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(1).Range.InsertAfter "作  案  时  段"
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(2).Range.InsertAfter "<%=zasj%>"
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(3).VerticalAlignment = 1
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(4).VerticalAlignment = 1
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(3).Range.InsertAfter "作 案 进 出 口"
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(3).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(4).Range.InsertAfter "<%=rs("jk")%>/<%=rs("ck")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(4).Cells(4).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(1).Range.InsertAfter "作  案  手  段"
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(2).Range.InsertAfter "<%=rs("idSDTD")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(3).VerticalAlignment = 1
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(4).VerticalAlignment = 1
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(3).Range.InsertAfter "侵 入 方 式"
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(3).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(4).Range.InsertAfter "<%=rs("kcqlfs")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(5).Cells(4).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(6).Cells(1).Range.InsertAfter "作  案  工  具"
wApp.Application.ActiveDocument.Tables(1).Rows(6).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(6, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(6, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(6).Cells(2).Range.InsertAfter "<%=rs("idZAGJ")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(6).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(7).Cells(1).Range.InsertAfter "作案动机目的"
wApp.Application.ActiveDocument.Tables(1).Rows(7).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(7, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(7, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(7).Cells(2).Range.InsertAfter ""
wApp.Application.ActiveDocument.Tables(1).Rows(7).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(8).Cells(1).Range.InsertAfter "案  件  性  质"
wApp.Application.ActiveDocument.Tables(1).Rows(8).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(8, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(8, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(8).Cells(2).Range.InsertAfter "<%=rs("idAJXZ")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(8).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(9).Cells(1).Range.InsertAfter "作  案  人  数"
wApp.Application.ActiveDocument.Tables(1).Rows(9).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(9, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(9, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(9).Cells(2).Range.InsertAfter "<%=rs("ZARS")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(9).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(10).Cells(1).Range.InsertAfter "作  案  过  程"
wApp.Application.ActiveDocument.Tables(1).Rows(10).Height=110
wApp.Application.ActiveDocument.Tables(1).Rows(10).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(10, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(10, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(10).Cells(2).Range.InsertAfter "<%=zagc%>"
wApp.Application.ActiveDocument.Tables(1).Rows(10).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(11).Cells(1).Range.InsertAfter "作 案 人 特 点"
wApp.Application.ActiveDocument.Tables(1).Rows(11).Height=70
wApp.Application.ActiveDocument.Tables(1).Rows(11).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(11, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(11, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.InsertAfter "<%=zartd%>"
wApp.Application.ActiveDocument.Tables(1).Rows(11).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(12).Cells(1).Range.InsertAfter "串并意见与根据"
wApp.Application.ActiveDocument.Tables(1).Rows(12).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(12, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(12, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(12).Cells(2).Range.InsertAfter "<%=kccbyjygj%>"
wApp.Application.ActiveDocument.Tables(1).Rows(12).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(13).Cells(1).Range.InsertAfter "工  作  建  议"
wApp.Application.ActiveDocument.Tables(1).Rows(13).Height=70
wApp.Application.ActiveDocument.Tables(1).Rows(13).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(13, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(13, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(13).Cells(2).Range.InsertAfter "<%=VCHDESC%>"
wApp.Application.ActiveDocument.Tables(1).Rows(13).Cells(2).Range.ParagraphFormat.alignment=0
wApp.Application.ActiveDocument.Tables(1).Rows(14).Cells(1).Range.InsertAfter "现 场 分 析 人"
wApp.Application.ActiveDocument.Tables(1).Rows(14).Cells(1).Range.ParagraphFormat.alignment=1
wApp.Application.ActiveDocument.Tables(1).Cell(14, 2).Merge wApp.Application.ActiveDocument.Tables(1).Cell(14, 4)
wApp.Application.ActiveDocument.Tables(1).Rows(14).Cells(2).Range.InsertAfter "<%=rs("kcxcfxr")%>"
wApp.Application.ActiveDocument.Tables(1).Rows(14).Cells(2).Range.ParagraphFormat.alignment=0

With wApp.Application.ActiveDocument.Paragraphs.Add.Range
 .InsertAfter("　　　　　　　　　　　　　　　　　　　　　<%=tbrqnian%>年<%=tbrqyue%>月<%=tbrqtian%>日"&chr(10)) 
End With

</script>
<center><br><strong>数据处理完毕!</strong></center>

<p>
</p><div align='center'><center><input type=button class=buttonface name='cmdOK' onclick="window.returnValue=0;window.close();" value=" 确 定 " ></center></div>

</BODY>
</HTML>

vbscript直接生成WORD
Michael的专栏
02-09 1735
保存为Word文档window.returnValue=0数据处理中,请等待...Data processing, please wait...On Error Resume NextDim wAppSet wApp = CreateObject("Word.Application")If Err.number > 0 ThenAlert "没法保存为Word文件,请正确安装Wor
vbs合并word文档
01-26
vbs合并word文档代码。把这个vbs合并word文档.txt改为vbs合并word文档.vbs,然后和两个word文档（分别为a.doc和b.doc）放在一个文件夹中，双击后即可合并。
VBSCRIPT 生成 WORD 又一法
Michael的专栏
02-09 1145
Build Document by Script  产品名称  产品描述  产品单价  产品等级  产品一  This is a test  300.50  一级  产品二  This is a test  300.50  一级  产品三  This is a test  300.50  一级Sub buildDoc(theTemplate,intTableRows)  Dim Table1  s
vbs 合并word文档
07-31
vbs 合并word文档
VBScript/VBA批量合并多个Word文件到一个文件
heartdiamond的专栏
11-04 3163
http://wangye.org/blog/archives/138/
asp读取access数据库生成带图片word.zip
12-17
在生成Word文档时，我们可能需要将数据库中的数据和图片一起整合到文档中，使得生成的报告或文档更加生动和直观。 首先，我们需要在ASP页面中创建一个ADO连接对象，用于连接到Access数据库。这通常涉及设置连接字符...
jacob-1.19.jar包
10-13
Jacob库广泛应用于需要与Microsoft Office应用程序交互的场景中，例如自动化Word文档的创建和编辑、Excel电子表格的生成和分析以及与Outlook进行邮件发送和管理等。开发者可以通过Jacob提供的API来控制Office应用...
wincc－－[第3讲] 打开WORD文档.rar
09-24
而将Word文档整合到WinCC中，可以方便地生成报告、记录或提供操作指南。 首先，我们需要理解WinCC的基本架构。WinCC基于Windows操作系统，提供了一个灵活且可扩展的平台，用于创建、运行和管理HMI（Human Machine ...
2021-2022计算机二级等级考试试题及答案No.2291.docx
10-31
- 这是一个简单的Python程序，使用random模块生成1到10之间的随机数，然后让用户尝试猜测，直到猜对为止。 以上是文档中提到的IT知识点的详细解析，这些知识涵盖了编程语言、数据库操作、网络协议、操作系统、Web...
2021-2022计算机二级等级考试试题及答案No.16543.docx
10-29
在现代版本（如Word 2010及以后）中，常用功能已经整合到快速访问工具栏和功能区中。 2. SQL操作：选择（SELECT）、投影（PROJECT）、连接（JOIN）和并集（UNION）是SQL中的基本操作。题目中的描述对应的是连接操作...
VBScript 调用Word示例
06-30
使用VBSCript调用Word进行简单操作的示例
vbscript 将网页导出到word
03-09
客户要求将报表页查出来数据后，点击一个按钮便可以导出成word，并能够按要求设置页眉页脚。本来想做成服务端读取模板的形式，后来想先用客户端脚本试试能否做到。之前没弄过这个，用了2个多小时找资料，都不怎么符合自己的要求，要么不能设置页眉页脚，要么无法在客户端将带html格式的信息导出Word。后来索性自己搞，利用vbscript在客户端页面实现了将网页直接导入到word，并实现了对页眉页脚的设置。
vbs对 word的操作
06-28
vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作vbs对 word的操作
VBS脚本教程（word版）
11-14
It's good enough for you to learn some procedures which can be used on computer……
vba按原格式批量合并word文档
04-28
使用说明 功能：把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。 准备工作 把 合并文件.docm和需要合并的word文档（例如：测试用的文档1.docx、测试用的文档1.docx）放入一个文件夹里面 调用宏方法 打开开发工具-宏 功能介绍 可以看到两个宏名称 1、writeFileNameList 把目录下的文档名称写入filelist.txt文件里面，调整测试用文档的顺序。 2、createManyToOneWordAndSave 把filelist.txt文档合并成一个文档，保存在《合并后文档.docx》
VBScript操作Word文件
weixin_34396103的博客
08-09 1210
Dim txtFile Dim wordFile chick() chick() txtFile = document.getElementById("txtFile").value wordFile = document.getElementById("wordFile").value If Len(trim(txtFile)) = 0 Or Len(tri...
VBScript生成Word,并添加表格及书签
searchkey的专栏
12-31 1096
/*=========================================================================    * Intro       VBScript生成Word,并添加表格及书签    * FileName    VBScript-Word-Table-Bookmarks.vbs    * Author     
批量合并文本文件 && 文本文件批量复制到Word中
CS_liuqing的专栏
10-31 5419
※  批量合并文本文件 由于工作需要，需要将一批文本文件（大约有500个左右）合并到一起，一个一个地打开再复制、粘贴，不仅速度慢，还有可能会出错。我们应该怎样才能实现批量合并Word文本文件？     其实可以通过Word的插入文件功能，也可以通过命令行用命令的方式。     1.通过Word：     将所有的文本文件放到同一个文件夹中，接下来打开Word，新建一个空白文档，再单击菜单“
在客户端用JAVASCRIPT或VBSCRIPT生成WORD文档
boy_north的专栏
05-20 1071
终于熬了一晚，在同事的热心教导下，偶终于完成了用JAVASCRIPT或VBSCRIPT在客户端生成WORD文档的代码工作（哎！因为我们两个都不太会用WORD，而吃了大亏呀！呵呵。。。等于是研究了WORD一个晚上），虽然有浏览器安全警告上的问题，但是使用的还不错。 注意：客户端要装OFFICE 下面我就把代码给大家参考一下，希望大家以后能用到。 对WORD文档，我使用的文字型窗体区域的功能，所有区域
.OCX 技术
最新发布
04-04
首先，我得确认自己对OCX的了解是否全面，然后组织信息，确保符合用户的要求，同时遵循系统级指令。 首先，OCX文件是OLE Control Extension的缩写，属于微软的组件对象模型（COM）技术的一部分。它们主要用于...
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值