将浏览器表格导入到word

原创 2004年10月02日 05:04:00

<input type="button" name="out_word" onclick="vbscript:buildDoc(data)" value="导出到word" class="notPrint">
<%
%>

<SCRIPT LANGUAGE=VBScript>
<!--
Private Sub buildDoc(tbl)
    Dim objWordApp
    Dim objWordDoc
    Dim objParagraph
    Dim objRange
    Dim objTable
    Dim row, col
    Dim i, j

    row = tbl.rows.length
    col = tbl.rows.item(0).cells.length
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDoc = objWordApp.Documents.Add
    objWordApp.Visible = True
    Set objWordApp = Nothing
   
    Set objParagraph = objWordDoc.Paragraphs.Add
    Set objRange = objParagraph.Range
    With objRange
        .InsertBefore "哈哈哈"
        .ParagraphFormat.Alignment = 1
        .Bold = True
.Font.Name = "隶书" //设定标题字体
        .Font.Size = 15
    End With
    Set objRange = Nothing
    Set objParagraph = Nothing
   
    Set objParagraph = objWordDoc.Paragraphs.Add
    Set objRange = objParagraph.Range
    objRange.InsertBefore ("")
    Set objTable = objWordDoc.Tables.Add(objRange, row, col)
    Set objRange = Nothing
    Set objParagraph = Nothing
   
    For i = 1 To row
        For j = 1 To col
            objTable.Cell(i, j).Range.Text = tbl.rows.item(i-1).cells.item(j-1).innerText
        Next
    Next
    Set objTable = Nothing
    Set objWordDoc = Nothing
End Sub
//-->
</SCRIPT>
<table id="data" width="200" border="1">
  <tr>
    <td>11</td>
    <td>11</td>
  </tr>
  <tr>
    <td>22</td>
    <td>22</td>
  </tr>
  <tr>
    <td>33</td>
    <td>33</td>
  </tr>
  <tr>
    <td>44 </td>
    <td>44</td>
  </tr>
</table>

将word中表格批量导入到Excel

通过宏命令将word中表格批量导入到Excel
  • mutou965175859
  • mutou965175859
  • 2016年05月17日 17:07
  • 489

将浏览器文本导入到word

    function onDownloadDone(s) {         content.value=s;    }点击Text2Word,可以把这里的数据转成为Word.也可先导入文本件....
  • aspczlover
  • aspczlover
  • 2004年10月02日 05:02
  • 555

把一个网页文件的内容导入到word里

网页文件可能包括表格线,图片等 Set MyFileObject=CreateObject("Scripting.FileSystemObject")if Not MyFileObject.Folde...
  • Leeu
  • Leeu
  • 2005年04月09日 09:23
  • 4479

web项目java后台将html表格导出为word表格文件

web环境;spring+jQuery+hibernate  前端jsp文件核心代码:                    下载word版 $("#dwywjs").click(...
  • zixingchedechegulu
  • zixingchedechegulu
  • 2017年07月06日 15:54
  • 782

[C#]用C#动态生成Word文档并将数据填入Word表格中

刚刚实现了个功能:用C#实现动态生成Word文档,在Word文档中插入表格,并将读出的数据填入到表格中。要使用C#操作word,首先要添加引用:       1、添加引用->COM->Microsof...
  • yiyiwyy326
  • yiyiwyy326
  • 2007年04月13日 11:48
  • 2230

python读取excel导入word表格

参考文档: openpyxl API python-docx API# -*- coding: utf-8 -*- from openpyxl import load_workbook from ...
  • yxwb1253587469
  • yxwb1253587469
  • 2017年01月16日 14:07
  • 1100

使用VBA将Excel数据导入到Word的表格中

    现要求将一个Excel数据表中的每行数据导成一个Word文档,即有多少行数据就生成多少个Word文档,Excel每列与Word文档中的表格项一一对应。    前置工作:将Word文档空表格当然...
  • mzlogin
  • mzlogin
  • 2011年05月25日 17:36
  • 7973

C#将数据导入固定word模板

先引入dll文件:  Microsoft.Office.Interop.Word.dll             Microsoft.Office.Interop.Word.Applicat...
  • thanks_hck
  • thanks_hck
  • 2018年01月16日 17:05
  • 65

txt内容通过另存为方式导入到word中

之前的程序可以把word内容通过另存为方式导入到txt中 直接使用这个程序,txt -> doc ,也可以导入到doc文件中,但是txt->docx , 导入到word2007就有问题 这时,改变...
  • aaajj
  • aaajj
  • 2012年11月14日 00:19
  • 2752

巧用VBA自动处理Word表格

巧用VBA自动处理Word表格  来源:http://www.52wg.org  Microsoft Word 是大家熟悉的文字处理软件,强大的功能为我们的工作提供了很大的帮助。而Visual Bas...
  • zhuwenbing
  • zhuwenbing
  • 2006年06月08日 10:45
  • 1221
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将浏览器表格导入到word
举报原因:
原因补充:

(最多只允许输入30个字)