繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- 推荐js实现商品分类到搜索栏友好提示（人机交互）
- attachEvent的使用方法与传递参数[IE|firefox]
- 用javascript实现鼠标框选
- 一个不错的动感导航菜单
- JavaScript网页制作特殊效果用随机数
- 一段非常好的滑动门[可感应触发或点击触发]兼容IE7 IE6 FireFox Opera
- js实现的的 文字自动''到google search框
- JS值当前DIV的ID值的代码
- 在javascript中，如果删除二维数组中重复的元素
- 一个用js实现的页内搜索代码
- 不用MOUSEMOVE也能滑动啊
- asp 的 分词实现代码
- 更正确的asp冒泡排序
- 用Javscript实现表单复选框的全选功能
- 向fckeditor编辑器插入指定代码的方法
- javascript实现 在光标处插入指定内容
- 如何实现动态删除javascript函数
- javascript父子通信
- JS获取scrollHeight问题想到的标准问题
- 從博客網扣了一個效果出來
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 76 ::
收藏到网摘: 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
