Add a Table to a Word Document

2016-02-19 09:24 4 1 收藏

给自己一点时间接受自己,爱自己，趁着下午茶的时间来学习图老师推荐的Add a Table to a Word Document，过去的都会过去，迎接崭新的开始，释放更美好的自己。

【 tulaoshi.com - Web开发】

Demonstration script that retrieves service information from a
computer and then displays that information in tabular format in Microsoft Word.
代码如下：

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,3
Set objTable = objDoc.Tables(1)

x=1

strComputer = "."
Set objWMIService = _
    GetObject("winmgmts:" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service")

For Each objItem in colItems
    If x  1 Then
        objTable.Rows.Add()
    End If
    objTable.Cell(x, 1).Range.Text = objItem.Name
    objTable.Cell(x, 2).Range.text = objItem.DisplayName
    objTable.Cell(x, 3).Range.text = objItem.State
    x = x + 1
Next

来源:http://www.tulaoshi.com/n/20160219/1590649.html

上一篇：类之Prototype.js学习
下一篇： android GridView多选效果的实例代码

看过《Add a Table to a Word Document》的人还看了以下文章更多>>

Add a Table to a Word Document 02-19
Add a Formatted Table to a Word Document 02-19
Add Formatted Text to a Word Document 02-19
Add a Picture to a Microsoft Word Document 02-19
Open and Print a Word Document 02-19
框架:document.compatMode 02-20
如何给Table减肥 02-19
document.open() 与 document.write()的区别 02-19
javascript操作table 02-19
Add data to the Access database using ADO 02-19

document 和 document.all 分别什么时候用

标签： Web开发

body div id="aa"123456/div input type="button" value="这里用 document 就出错" onclick="alert(document.aa.innerText);" / br / input type="button" value="这里用 document.all 就不出错" oncl...

js正则匹配table tr

标签： Web开发

我觉得比ijao简单，但是脑子就是转不过弯。。。。请正则高手看看阿。代码如下： textarea id="txt" table border=1 width="20%" trthtitle/ththtitle2/th/tr &n...

MySQL进阶_create table篇

标签： MySQL mysql数据库

MySQL中create table语句的基本语法是： CREATE [TEMPORARY] TABLE [IF NOT EXISTS] tbl_name [(create_definition,...)] [table_options] [select_statement] TEMPORARY：该关键字表示用create table新建的表为临时表，此表在当前会话结束后将自动消失。临时表主要被应用于存储过程中，对于目前尚不支持存储过程的MySQL，该关键字一...

css教程:css和document

标签： Web开发

Cascading Style Sheets: The Definitive Guide, 2nd Edition is a thorough review of all aspects of CSS2.1 and a comprehensive guide to CSS implementation. The book includes new content on positioning, lists and generated content, table layout, user interface, paged media, and more. It explores in detail each individ...

JavaScript教程:Table行定位效果

标签： Web开发

近来有客户要求用table显示一大串数据，由于滚动后就看不到表头，很不方便，所以想到这个效果。上次做 table排序对table有了一些了解，这次更是深入了解了一番，发现table原来是这么不简单。还不清楚这个效果叫什么，有点像表头固定的效果，就叫行定位吧，本来想把列定位也做出来，但暂时还没这个需求，等以后有时间再弄吧。在淘宝的商...

查看更多精彩>>