Add a Formatted Table to a Word Document
更新時(shí)間：2007年06月15日 00:00:00 作者：
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
Next
then displays that data in a formatted table 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.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
Next
相關(guān)文章
前端跨瀏覽器兼容性問(wèn)題的常見(jiàn)解決方法詳解
在前端開(kāi)發(fā)中,跨瀏覽器兼容性問(wèn)題一直是個(gè)不容忽視的挑戰(zhàn),本文將從多個(gè)角度詳細(xì)解析跨瀏覽器兼容性問(wèn)題的根源、常見(jiàn)問(wèn)題以及解決方案,需要的可以參考下2025-03-03
本文主要介紹了基于electron的音視頻播放器，文中通過(guò)示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2022-02-02
我們首先把window.innerWidth和window.innerHeight的值分別付給了pageWidth和pageHeight。2011-08-08
這篇文章主要介紹了JS原生2048小游戲源碼分享,實(shí)現(xiàn)代碼全部是給予js實(shí)現(xiàn)的，代碼簡(jiǎn)單易懂對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值，需要的朋友可以參考下2021-05-05
本文給大家介紹mvc提交表單的四種方法，分別是MVC HtmlHelper方法，傳統(tǒng)Form表單Aciton屬性提交，Jquery+Ajax 提交表單，MVC Controller控制器和表單參數(shù)傳遞，介紹的非常詳細(xì)，需要的朋友參考下2016-08-08
JavaScript實(shí)現(xiàn)左右下拉框動(dòng)態(tài)增刪示例
本篇文章主要介紹了JavaScript實(shí)現(xiàn)左右下拉框動(dòng)態(tài)增刪示例，可以對(duì)下拉框進(jìn)行刪除和增加，非常具有實(shí)用價(jià)值，需要的朋友可以參考下。2017-03-03
js復(fù)制內(nèi)容到剪貼板代碼,js復(fù)制代碼的簡(jiǎn)單實(shí)例
下面小編就為大家?guī)?lái)一篇js復(fù)制內(nèi)容到剪貼板代碼,js復(fù)制代碼的簡(jiǎn)單實(shí)例。小編覺(jué)得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過(guò)來(lái)看看吧2016-10-10
這篇文章主要介紹了JavaScript中Pinia是否可以代替Vuex，文中通過(guò)示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧2022-07-07
這篇文章主要介紹了js+html5繪制圖片到canvas的方法,涉及html5元素操作的相關(guān)技巧,需要的朋友可以參考下2015-06-06
Javascript Ajax異步讀取RSS文檔具體實(shí)現(xiàn)
這篇文章主要介紹了Javascript Ajax異步讀取RSS文檔具體實(shí)現(xiàn)，有需要的朋友可以參考一下2013-12-12