繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- javascript下拉框不被选中大类的区别方法
- firefox浏览器下javascript 拖动层效果与原理分析代码
- javascript 常用关键字列表集合
- [原创]后缀就扩展名为js的文件是什么文件
- 初学JS的的小例子 javascript replace高亮替换
- 项目实践之javascript技巧
- 不间断滚动JS打包类，基本可以实现所有的滚动效果，太强了
- javascript数组使用调用方法汇总
- JS的递增/递减运算符和带操作的赋值运算符的等价式
- JavaScript开发时的五个注意事项
- js中将多个语句写成一个语句的两种方法小结
- javascript while语句和do while语句的区别分析
- 带参数的function 的自运行效果代码
- 看了就知道什么是JSON
- js模拟实现Array的sort方法
- JavaScript创建命名空间(namespace)的最简实现
- 文本链接逐个出现的js脚本
- 我见过最全的个人js加解密功能页面
- CLASS_CONFUSION JS混淆 全源码
- javascript轻松控制表格列样式的脚本代码
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 139 ::
收藏到网摘: 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
