Add a Table to a Word Document
更新時(shí)間：2007年06月15日 00:00:00 作者：
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
computer and then displays that information in tabular format in Microsoft Word.
復(fù)制代碼 代碼如下:
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
相關(guān)文章
js獲取對象,數(shù)組所有屬性鍵值(key)和對應(yīng)值(value)的方法示例
這篇文章主要介紹了js獲取對象,數(shù)組所有屬性鍵值(key)和對應(yīng)值(value)的方法,涉及javascript對于對象、數(shù)組鍵名與鍵值遍歷相關(guān)操作技巧,需要的朋友可以參考下2019-06-06
本文主要分享了原生js實(shí)現(xiàn)仿慕課網(wǎng)的輪播效果。具有很好的參考價(jià)值，下面跟著小編一起來看下吧2017-02-02
下面小編就為大家?guī)硪黄猨s 定位到某個(gè)錨點(diǎn)的方法。小編覺得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過來看看吧2016-11-11
這篇文章主要介紹了Javascript中call的兩種用法實(shí)例，有需要的朋友可以參考一下2013-12-12
JavaScript面試必備之垃圾回收機(jī)制和內(nèi)存泄漏詳解
垃圾回收機(jī)制和內(nèi)存泄漏是JavaScript面試時(shí)常常問到的問題，這篇文章就為大家詳細(xì)整理了他們的相關(guān)知識，感興趣的小伙伴可以跟隨小編一起了解一下2023-05-05
微信小程序?qū)崿F(xiàn)獲取準(zhǔn)確的騰訊定位地址功能示例
這篇文章主要介紹了微信小程序?qū)崿F(xiàn)獲取準(zhǔn)確的騰訊定位地址功能,結(jié)合實(shí)例形式詳細(xì)分析了微信小程序使用騰訊地理位置接口的相關(guān)注冊、操作步驟及接口使用技巧,需要的朋友可以參考下2019-03-03
快速學(xué)習(xí)JavaScript的6個(gè)思維技巧
在這篇文章中，我將介紹六個(gè)思維技巧來幫助你更快地學(xué)習(xí)JavaScript，并成為一個(gè)更快樂、更富有成效的程序員。2015-10-10
這篇文章主要介紹了JavaScript把數(shù)組作為堆棧使用的方法,實(shí)例分析了javascript操作數(shù)組的技巧,具有一定參考借鑒價(jià)值,需要的朋友可以參考下2015-03-03
JS使用jsBarcode生成條形碼(一維碼)簡單實(shí)例
JsBarcode是一個(gè)用JavaScript編寫的條形碼生成器,它支持多種條形碼格式,可在瀏覽器和Node.js中使用,下面這篇文章主要給大家介紹了關(guān)于JS使用jsBarcode生成條形碼(一維碼)的相關(guān)資料,需要的朋友可以參考下2023-03-03
這篇文章主要為大家詳細(xì)介紹了js實(shí)現(xiàn)圖片上傳預(yù)覽的原理，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2017-07-07