ASP調用Word
& lthtml & gt
& lthead & gt
& lttitle & gt看
& ltmeta http-equiv = " Content-Type " Content = " text/html；charset=gb2312 " >
& lt！- media=print該屬性在打印時有效-& gt；
& ltstyle media = print & gt
。no print { display:none；}
。page next { page-break-after:always；}
& lt/style & gt；
& ltstyle & gt
。技術開發計劃(technical development plans)
{
border-bottom:1 solid # 000000；
border-left:1 solid # 000000；
border-right: 0實線# ffffff
border-top:0 solid # ffffff；
}
。tabp
{
border-color:# 000000 # 000000 # 000000 # 000000；
邊框樣式:純色；
border-top-width:2px；
border-right-width:2px；
邊框-底部-寬度:1px；
邊框-左側-寬度:1px；
}
。不打印{
字體-家族:“宋體”；
字體大小:9pt
}
& lt/style & gt；
& lt/head & gt；
& ltbody & gt
& ltcenter class="Noprint " >
& ltp & gt
& ltOBJECT id = WebBrowser classid = CLSID:8856 f 961-340 a-11d 0-A96B-00 c 04 FD 705 a 2 height = 0 width = 0 & gt；
& lt/OBJECT & gt；
& lt輸入類型=按鈕值=打印onclick = document . all . webbrowser . execb(6，1)>
& lt輸入類型=按鈕值=直接打印onclick = document . all . webbrowser . exec WB(6，6)>
& lt輸入類型=按鈕值=頁面設置onclick = document . all . webbrowser . exec WB(8，1)>
& lt/p & gt；
& ltp & gt& lt輸入類型=按鈕值=打印預覽onclick = document . all . webbrowser . exec WB(7，1)>
& ltbr/>；
& lt/p & gt；
& ltHR align = " center " width = " 90% " size = " 1 " no shade & gt；
& lt/center & gt；
& lttable width = " 90% " border = " 0 " align = " center " cell padding = " 2 " cellspacing = " 0 " class = " tabp " & gt；
& lttr & gt
& lttd colspan="3" class="tdp " >第1頁
& lt/tr & gt；
& lttr & gt
& lttd width="29%" class="tdp " >& lt/TD & gt；
& lttd width="28%" class="tdp " >& lt/TD & gt；
& lttd width="43%" class="tdp " >& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd colspan="3" class="tdp " >& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd colspan="3" class="tdp " >& lttable width = " 100% " border = " 0 " cellspacing = " 0 " cell padding = " 0 " >
& lttr & gt
& lttd width="50%" class="tdp " >& ltp & gt這樣的報告
& ltp & gt壹般要求就夠了。& lt/p & gt；& lt/TD & gt；
& lttd & gt& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；
& ltHR align = " center " width = " 90% " size = " 1 " no shade class = " no print " >
& lt！-分頁-& gt；
& ltdiv class="PageNext " >& lt/div & gt；
& lttable width = " 90% " border = " 0 " align = " center " cell padding = " 2 " cellspacing = " 0 " class = " tabp " & gt；
& lttr & gt
& lttd class="tdp " >第2頁
& lt/tr & gt；
& lttr & gt
& lttd class="tdp " >查看分頁。
& lt/tr & gt；
& lttr & gt
& lttd class="tdp " >& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd class="tdp " >& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd class="tdp " >& lttable width = " 100% " border = " 0 " cellspacing = " 0 " cell padding = " 0 " >
& lttr & gt
& lttd width="50%" class="tdp " >& ltp & gt這樣的報告
& ltp & gt壹般要求就夠了。& lt/p & gt；& lt/TD & gt；
& lttd & gt& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；
& lt/body & gt；
& lt/html & gt；
__________________________________________________________________
& ltHTML & gt
& ltHEAD & gt
& ltTITLE & gt新文檔& lt/TITLE & gt；
& ltMETA NAME = " Generator " CONTENT = " EditPlus " & gt；
& ltMETA NAME = " Author " CONTENT = " " & gt；
& ltMETA NAME = " Keywords " CONTENT = " " & gt；
& ltMETA NAME = " Description " CONTENT = " " & gt；
& lt/HEAD & gt；
& ltBODY & gt
& ltTABLE id="data" border="1 " >
& ltTR & gt
& ltTD & gt& ltB& gt；asdfaf & lt/B& gt；& lt/TD & gt；
& ltTD & gt& ltB& gt；asfafaf & lt/B& gt；& lt/TD & gt；
& lt/TR & gt；
& ltTR & gt
& ltTD & gtasdfaf & lt/TD & gt；
& ltTD & gtasfafaf & lt/TD & gt；
& lt/TR & gt；
& lt/TABLE & gt；
& ltinput type = " button " name = " out _ word " onclick = " VBScript:build doc " value = " export to word " class = " not print " & gt；
& lt腳本語言= " vbscript " & gt
子構建文檔
set table = document.all.data
row = table . row . length
column = table . rows(1). cells . length
set objWordDoc = CreateObject(" Word。文檔”)
objWordDoc。應用程序.文檔.添加模板，False
objWordDoc。應用程序。Visible=True
調暗數組(20，10000)
對於i=0到行-1
對於j=0到列-1
Array(j+1，i+1) = table.rows(i)。單元格(j)。內部文本
然後
然後
Objworddoc。application . active document . paragraphs . add . range . insert before("綜合查詢結果集")//顯示表格標題。
objWordDoc。application . active document . paragraphs . add . range . insert before(" ")
設置rngPara = objWordDoc。application . active document . paragraphs(1)。範圍
使用rngPara
。Bold = True //將標題設置為粗體。
. paragraph format . alignment = 1//將標題居中。
。字體。Name = "隸書"//設置標題字體。
. font . size = 18//設置標題字體大小。
以…結尾
設置rngCurrent = objWordDoc。應用程序. ActiveDocument .段落(3)。範圍
Set tabCurrent = ObjWordDoc。application . active document . tables . add(RNG current，row，column)
對於i = 1到列
objWordDoc。application . active document . tables(1)。行數(1)。單元格(i).Range .在數組(I，1)後插入
objWordDoc。application . active document . tables(1)。行數(1)。cells(I). range . paragraph format . alignment = 1
然後
對於i =1到列
對於j = 2的行
objWordDoc。application . active document . tables(1)。行(j)。單元格(i).Range .在數組(I，j)後插入
objWordDoc。application . active document . tables(1)。行(j)。cells(I). range . paragraph format . alignment = 1
然後
然後
末端接頭
& lt/SCRIPT & gt；
& lt/BODY & gt；
& lt/HTML & gt；
這個程序可以把ASP中的表格導入到Word中，看看能不能幫到妳壹點。
-
& lt！DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN " & gt；
& ltHTML & gt& ltHEAD & gt& ltTITLE & gt看
& ltMETA http-equiv = Content-Type Content = " text/html；charset=gb2312 " >& lt！- media=print該屬性在打印時有效-& gt；
& ltSTYLE media = print & gt。不打印{
顯示:無
}
。下壹頁{
分頁後:總是
}
& lt/STYLE & gt；
& ltSTYLE & gt。tdp {
右邊框:#ffffff 0px實線；BORDER-TOP:# ffffff 0px solid；邊框-左側:#000000 1px實心；底部邊框:#000000 1px純色
}
。tabp {
右邊框:#000000 2px實線；邊框頂部:#000000 2px純色；邊框-左側:#000000 1px實心；邊框-底部:#000000 1px純色
}
。不打印{
字體大小:9pt字體系列:“宋體”
}
& lt/STYLE & gt；
& ltMETA content = " MSHTML 6 . 00 . 2800 . 1106 " name = GENERATOR & gt；& lt/HEAD & gt；
& ltBODY & gt
& ltCENTER class=Noprint>。
& ltP & gt
& lt對象id=WebBrowser height=0 width=0
classid = CLSID:8856 f 961-340 a-11d 0-A96B-00 c 04 FD 705 a 2 & gt；& lt/OBJECT & gt；& ltinputonclick = document . all . webbrowser . execb(6，1)Type = Button value = Print >；
& ltinputonclick = document . all . webbrowser . execb(6，6) type = buttonvalue =直接打印>；& ltinputonclick = document . all . webbrowser . execb(8，1)Type = Button value = Page setup >；& lt/P & gt；
& ltP & gt& ltInputonclick = document。all.webbrowser.execb (7，1) type = buttonvalue =打印預覽>；
& ltBR & gt& lt/P & gt；
& ltHR align = center width = " 90% " no shade SIZE = 1 & gt；
& lt/CENTER & gt；
& ltTABLE class = tabp cellSpacing = 0 cell padding = 2 width = " 90% " align = center
border = 0 & gt& ltTBODY & gt
& ltTR & gt
& ltTD class=tdp colSpan=3>。第1頁
& ltTR & gt
& ltTD class=tdp width="29%">。& lt/TD & gt；
& ltTD class=tdp width="28%">。& lt/TD & gt；
& ltTD class=tdp width="43%">。& lt/TD & gt；& lt/TR & gt；
& ltTR & gt
& ltTD class=tdp colSpan=3>。& lt/TD & gt；& lt/TR & gt；
& ltTR & gt
& ltTD class=tdp colSpan=3>。
& lt表格單元格間距= 0 cell padding = 0 width = " 100% " border = 0 & gt；
& ltTBODY & gt
& ltTR & gt
& ltTD class=tdp width="50%">。
& ltP & gt這樣的報告
& ltP & gt壹般要求就夠了。& lt/P & gt；& lt/TD & gt；
& ltTD & gt& lt/TD & gt；& lt/TR & gt；& lt/TBODY & gt；& lt/TABLE & gt；& lt/TD & gt；& lt/TR & gt；& lt/TBODY & gt；& lt/TABLE & gt；
& ltHR class = no print align = center width = " 90% " no shade SIZE = 1 & gt；
& lt！-分頁-& gt；
& ltDIV class = PageNext & gt& lt/DIV & gt；
& ltTABLE class = tabp cellSpacing = 0 cell padding = 2 width = " 90% " align = center
border = 0 & gt& ltTBODY & gt
& ltTR & gt
& ltTD class=tdp>。第2頁
& ltTR & gt
& ltTD class=tdp>。查看分頁。& lt/TR & gt；
& ltTR & gt
& ltTD class=tdp>。& lt/TD & gt；& lt/TR & gt；
& ltTR & gt
& ltTD class=tdp>。& lt/TD & gt；& lt/TR & gt；
& ltTR & gt
& ltTD class=tdp>。
& lt表格單元格間距= 0 cell padding = 0 width = " 100% " border = 0 & gt；
& ltTBODY & gt
& ltTR & gt
& ltTD class=tdp width="50%">。
& ltP & gt這樣的報告
& ltP & gt壹般要求就夠了。& lt/P & gt；& lt/TD & gt；
& ltTD & gt& lt/TD & gt；& lt/TR & gt；& lt/TBODY & gt；& lt/TABLE & gt；& lt/TD & gt；& lt/TR & gt；& lt/TBODY & gt；& lt/TABLE & gt；& lt/BODY & gt；& lt/HTML & gt；