Add a Formatted Table to a Word Document

　　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