常见问题当前位置:星鸿娱乐 > 常见问题 > >

星鸿娱乐平台:Add a Formatted Table to a Word Document

  

[Add,a,Formatted,Table,to]Add a Formatted Table to a Word Document

  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  
  
  
  
  

(责任编辑:admin)

上一篇:星鸿娱乐:jQuery插件zoom实现图片全屏放大弹出层

下一篇:星鸿娱乐:jQuery文本框得到与失去焦点动态改变

推荐内容

客户服务热线

400 888 8932

在线客服