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 & "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.Text = objItem.Name objTable.Cell(x, 2).Range.text = objItem.DisplayName objTable.Cell(x, 3).Range.text = objItem.State x = x + 1 Next
推荐阅读
jscript之Open an Excel Spreadsheet
Description Demonstration script that opens an existing Excel spreadsheet named C:ScriptsNew_users.xls. 复制代码 代码如下:Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExc>>>详细阅读
本文标题:Add a Table to a Word Document
地址:http://www.17bianji.com/kaifa2/JS/30359.html
1/2 1