Add a Table to a Word Document

137 阅读 0 评论 91 点赞

我是靠谱客的博主追寻冬瓜，这篇文章主要介绍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 & "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 