Add a Table to a Word Document


Demonstration script that retrieves service information from a
computer and then displays that information in tabular format 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.Text = objItem.Name
objTable.Cell(x, 2).Range.text = objItem.DisplayName
objTable.Cell(x, 3).Range.text = objItem.State
x = x + 1
Next




相关阅读:
css应用:单击table,使点击的行变色
FreeBSD qmail HOWTO for FreeBSD
详解ADO.NET客户端开发数据驱动的应用程序
css浮动的实例
Openssl几个简单的功能命令使用
javascript编程起步(第五课)
HTML表格标记教程(14):表格的表头
oracle中的共享服务器和专用服务器
JSP应用语法详解大全 (2)
IE7下当position:fixed遇到text-align:center的解决方法
Windows Vista系统常用术语列表
监控 DB2 活动之捕获快照数据
discuzX2全站自动备份批处理
DDR with Access Lists
快速导航

Copyright © 2016 phpStudy |