AddaFormattedTabletoaWordDocument_javascript技巧

来源：动视网责编：小采时间：2020-11-27 20:37:22

AddaFormattedTabletoaWordDocument_javascript技巧

AddaFormattedTabletoaWordDocument_javascript技巧: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.

推荐度：

点击下载本文 文档为doc格式

导读AddaFormattedTabletoaWordDocument_javascript技巧: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.

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

AddaFormattedTabletoaWordDocument_javascript技巧

推荐度：

点击下载本文 文档为doc格式

标签： word js javascript

热门焦点

AddaFormattedTabletoaWordDocument_javascript技巧

AddaFormattedTabletoaWordDocument_javascript技巧

AddaFormattedTabletoaWordDocument_javascript技巧

最新推荐

猜你喜欢

热门推荐