当前位置:首页 > JS > JS&DOM

Add a Table to a Word Document

来源:智启教程|时间:2016-12-30 14:22:15
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


  

栏目最新

相关文章

关于我们 - 广告合作 - 联系我们 - 免责声明 - 网站地图 - 投诉建议 - 在线投稿

严禁网站镜像,否则追究法律责任 CopyRight © 2014 智启教程 zhiqinet.com , All Rights Reserved.