繁體中文当前位置: 首页 > 图文教程 > 网络编程 > Javascript > Add a Formatted Table to a Word Document
- Javascript
- 11款基于Javascript的文件管理器
- 5款Javascript颜色选择器
- JavaScript 对话框和状态栏使用说明
- 状态栏 时间显示效果 数字钟
- 在图片上单击获取图片原始大小
- 禁止在图片上使用右键
- javascript 操作Word和Excel的实现代码
- 几个javascript操作word的参考代码
- innerhtml用法 innertext用法 以及innerHTML与innertext的区别
- 解决表单中第一个非隐藏的元素获得焦点的一个方案
- 解决jquery .ajax 在IE下卡死问题的解决方法
- javascript 实现划词标记划词搜索功能
- 用Greasemonkey 脚本收藏网站会员信息到本地
- javascript 关于# 和 void的区别分析
- DIV+CSS+JS 变灰弹出层
- Ajax+Json 级联菜单实现代码
- javascript 读取XML数据，在页面中展现、编辑、保存的实现
- html 锁定页面(js遮罩层弹出div效果)
- 基于jQuery的日期选择控件
- javascript获得CheckBoxList选中的数量
Javascript 中的 Add a Formatted Table to a Word Document
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-12 浏览: 153 ::
收藏到网摘: 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
