Demonstrationscriptthatretrievesserviceinformationfroma
computerandthendisplaysthatinformationintabularformatinMicrosoftWord.
复制代码 代码如下:
SetobjWord=CreateObject("Word.Application")
objWord.Visible=True
SetobjDoc=objWord.Documents.Add()
SetobjRange=objDoc.Range()
objDoc.Tables.AddobjRange,1,3
SetobjTable=objDoc.Tables(1)
x=1
strComputer="."
SetobjWMIService=_
GetObject("winmgmts:"&strComputer&"rootcimv2")
SetcolItems=objWMIService.ExecQuery("Select*fromWin32_Service")
ForEachobjItemincolItems
Ifx>1Then
objTable.Rows.Add()
EndIf
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
【Add a Table to a Word Document】相关文章：
★ JavaScript对表格或元素按文本，数字或日期排序的方法
★ Add a Formatted Table to a Word Document
★ 图片之间的切换