将浏览器表格导入到word

最新推荐文章于 2025-04-28 22:00:36 发布

原创最新推荐文章于 2025-04-28 22:00:36 发布 · 878 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#浏览器 #vbscript #button #border #input #table

asp和应用程序专栏收录该内容

7 篇文章

订阅专栏

博客展示了一段代码，通过VBScript实现将HTML表格数据导出到Word文档。代码包含一个按钮，点击后触发VBScript函数，创建Word应用程序和文档，设置标题格式，将表格数据逐行逐列写入Word表格。

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

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