繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- 动态生成js类的实现方法
- 漂亮的提示信息（带箭头）
- 实时编辑网页网页文字实时编辑，如同TEXTBOX一般
- 基于逻辑运算的简单权限系统(实现) JS 版
- 用 javascript 实现的点击复制代码
- AutoSave/自动存储功能实现
- JQuery 简便实现页面元素数据验证功能
- 5 cool javascript apps
- jQuery使用手册之 事件处理
- dojo 之基础篇
- dojo 之基础篇(二)之从服务器读取数据
- dojo 之基础篇(三)之向服务器发送数据
- Ajax一统天下之Dojo整合篇
- javascript对象的property和prototype是这样一种关系
- this[] 指的是什么内容 讨论
- 用prototype实现的简单小巧的多级联动菜单
- xml 与javascript结合的问题解决方法
- tbody元素支持嵌套的注意方法
- 推荐dojo学习笔记
- JavaScript判断两种格式的输入日期的正确性的代码
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 133 ::
收藏到网摘: 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
