作家
登录

Add a Table to a Word Document

作者: 来源:www.28hudong.com 2013-03-30 03:25:43 阅读 我要评论

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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)