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 & "rootcimv2") 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

　　推荐阅读

　　一款JavaScript压缩工具：X2JSCompactor

去年写的一个JavaScript压缩工具，用于x2blog.cn的js压缩。不过一直没有对外发布，现在拿来充个文章数吧，老不更新Blog可不好，呵呵 概述： X2JavascriptCompactor可以将多个Javascript脚本文件打包成一个文件，并>>>详细阅读

本文标题：Add a Formatted Table to a Word Document

地址：http://www.17bianji.com/kaifa2/JS/30369.html

 1/2    1