繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- Mootools 1.2教程 排序类和方法简介
- Mootools 1.2 手风琴（Accordion）教程
- Mootools 1.2教程 类(一)
- Mootools 1.2教程 Tooltips
- Mootools 1.2教程 选项卡效果（Tabs）
- Mootools 1.2教程(21)：类（二）
- Mootools 1.2教程 同时进行多个形变动画
- Mootools 1.2教程 滑动效果（Slide）
- 不安全的常用的js写法
- javascript 检测浏览器类型和版本的代码
- javascript 弹出层居中效果的制作
- javascript 遮照层效果
- Javascript createElement和innerHTML增加页面元素的性能对比
- 颜色快速采集器javascript代码
- var与Javascript变量隐式声明
- javascript 面向对象编程 万物皆对象
- jQuery 事件队列调整方法
- JavaScript switch case 的用法实例[范围]
- 控制input的CSS但不影响CheckBox以及Radio的样式
- ext 同步和异步示例代码
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 292 ::
收藏到网摘: n/a
Demonstration script that retrieves service data from a computer and
then displays that data in a formatted table 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.Font.Bold = True
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
评论 (0) All
