AddaTabletoaWordDocument_javascript技巧
來源：懂視網
責編：小采
時間：2020-11-27 20:37:17
AddaTabletoaWordDocument_javascript技巧
AddaTabletoaWordDocument_javascript技巧: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.
導讀AddaTabletoaWordDocument_javascript技巧: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.
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
聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com
AddaTabletoaWordDocument_javascript技巧
AddaTabletoaWordDocument_javascript技巧: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.
