快捷導(dǎo)航

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.

復(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使用心得分享
這里給大家分享的是本人近期學(xué)習(xí)與使用javascript之后總結(jié)出來的一些經(jīng)驗(yàn)和心得，雖然目前只有5點(diǎn)，但以后會(huì)慢慢更新，希望對大家能有所幫助。
2015-01-01
javascript克隆元素樣式的實(shí)現(xiàn)代碼
這是一個(gè)實(shí)驗(yàn)用的玩意，它可以克隆指定元素的最終樣式，并包裝成一個(gè)css類，它還可以證明Oprea 11.10 是個(gè)混球
2011-10-10
webpack的CSS加載器的使用
這篇文章主要介紹了webpack的CSS加載器的使用，小編覺得挺不錯(cuò)的，現(xiàn)在分享給大家，也給大家做個(gè)參考。一起跟隨小編過來看看吧
2018-09-09
解決Layui數(shù)據(jù)表格顯示無數(shù)據(jù)提示的問題
今天小編就為大家分享一篇解決Layui數(shù)據(jù)表格顯示無數(shù)據(jù)提示的問題，具有很好的參考價(jià)值，希望對大家有所幫助。一起跟隨小編過來看看吧
2019-11-11
解析img圖片沒找到onerror事件 Stack overflow at line: 0
本篇文章主要介紹了img圖片沒找到onerror事件 Stack overflow at line: 0 需要的朋友可以過來參考下，希望對大家有所幫助
2013-12-12
JS實(shí)現(xiàn)異步上傳壓縮圖片
這篇文章主要為大家詳細(xì)介紹了JS實(shí)現(xiàn)異步上傳壓縮圖片，并立即顯示圖片，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2017-04-04
用javascript實(shí)現(xiàn)倒計(jì)時(shí)效果
這篇文章主要為大家詳細(xì)介紹了用javascript實(shí)現(xiàn)倒計(jì)時(shí)效果，文中示例代碼介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下
2021-02-02
JavaScript給事件委托批量添加事件監(jiān)聽詳細(xì)流程
事件委托，一般來講，會(huì)把一個(gè)或者一組元素的事件委托到它的父層或者更外層元素上，真正綁定事件的是外層元素，當(dāng)事件響應(yīng)到需要綁定的元素上時(shí)，會(huì)通過事件冒泡機(jī)制從而觸發(fā)它的外層元素的綁定事件上，然后在外層元素上去執(zhí)行函數(shù)
2021-10-10
JS截取字符串 subStr()、substring()、slice() 方法示例詳解
這篇文章主要介紹了JS截取字符串 subStr()、substring()、slice() 方法,本文通過示例代碼給大家介紹的非常詳細(xì),對大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友參考下吧
2024-01-01
JS實(shí)現(xiàn)微信里判斷頁面是否被分享成功的方法
這篇文章主要介紹了JS實(shí)現(xiàn)微信里判斷頁面是否被分享成功的方法,結(jié)合實(shí)例形式分析了js調(diào)用微信接口判斷網(wǎng)頁分享功能的相關(guān)操作技巧,需要的朋友可以參考下
2017-06-06