繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- 非常不错的 子鼠 滑动图片效果 Javascript+CSS
- Mozilla 表达式 __noSuchMethod__
- javascript 获取图片颜色
- JavaScript 在各个浏览器中执行的耐性
- 在JavaScript中，为什么要尽可能使用局部变量？
- javascript 日历提醒系统( 兼容所有浏览器 )
- 常用JS代码实例小结
- jQuery 插件 将this下的div轮番显示
- 网页特效从下往上过渡 共享图库_最新图片
- 由document.body和document.documentElement想到的
- JavaScript获取GridView中用户点击控件的行号，列号
- jQuery 入门讲解1
- 百度 popup.js 完美修正版非常的不错
- jQuery autocomplete插件修改
- jQuery对象和DOM对象相互转化
- javascript 人物逼真行走,已完成
- 基于jQuery图片平滑连续滚动插件
- ie 调试javascript的工具
- ExtJS 2.0实用简明教程 之Border区域布局
- ExtJS 2.0实用简明教程 之Ext类库简介
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 241 ::
收藏到网摘: 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
