当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Table to a Word Document

Javascript
js一组验证函数
JavaScript 字符串连接性能优化
JavaScript CSS 菜单功能代码
jQuery 各种浏览器下获得日期区别
清除网页历史记录，屏蔽后退按钮!
关于IE7 IE8弹出窗口顶上
javascript StringBuilder类实现
通过event对象的fromElement属性解决热区设置主实体的一个bug
Javascript 布尔型分析
javascript 动态参数判空操作
js 解决“options为空或不是对象”
javascript 语法学习练习
javascript 硬盘序列号+其它硬件信息
window.location和document.location的区别分析
javascript XML数据显示为HTML一例
HTML与javascript常碰到的编码问题
javascript 时间对象的练习
JavaScript 事件参考手册
javascript prototype，executing，context，closure
javascript 网页跳转的方法

No. « 121 122 123 124 »

技术文章搜索

关键字

Javascript 中的 Add a Table to a Word Document

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-12   浏览: 193 ::
收藏到网摘: n/a

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 & "\root\cimv2")
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